Renamefile Çalışmıyor

[hdayi]

Merhaba,
rename file ile bir dosyayının adını değiştirmek istiyorum ama çalışmıyor. Devamlı False değeri dönüyor. Fileexist ile kontrol ettiğim zaman True dönüyor ama rename etmiyor.

Kod: Tümünü seç

procedure Tfrmgenel.BakmBalat1Click(Sender: TObject);
var
  yil,gun,ay:Word;

Begin
  DecodeDate(date,yil,ay,gun);
  if (Application.MessageBox('Lütfen programın hiç bir bilgisayrda çalışmadığından emin olup "TAMAM" tuşuna basınız', 'Keramet',mb_okcancel+mb_iconstop)=idok)
  then begin
  dm.con.Connected:=False;

      if RenameFile('v:\keramet.mdb','v:\'+IntToStr(gun)+IntToStr(ay)+IntToStr(yil)+'.mdb')
      then begin
        ShowMessage('Değişti');
      end
      else begin
        Application.MessageBox('Bir hata oluştu. Bilgisayarların tamamında programın kapatılmış olması gerekmektedir.'+#13+ 'Kontrol edip tekrar deneyin','Keramet',mb_ok+mb_iconstop);
      end;

  end;
  if not(dm.con.Connected) then dm.con.Connected:=True;
end;

Bu arada veritabanı olarak ACCESS kullanıyorum, Admin'e duyrulur

[mussimsek]

Bu arada veritabanı olarak ACCESS kullanıyorum, Admin'e duyrulur

hocam bir tek sen söyledin, sen de yanlış yerde söyledin Burda söylemeye gerek yoktu şaka bir yana bunu zihinlere yereleştirebildiysem ne mutlu bana

1. Dosya read-only değildir di mi? Bir kontrol et yine de.

2. Programdaki con connection'ını kapatsan bile başka bir yerde connection açık olabilir mi? Mesela Connection yerine direk bağlanmış bir AdoDataset veya AdoTable.

Kolay gelsin.

[hdayi]

Admin'im fırsatını bulmuşken yapayım dedim espriyi.
Dosya readonly değil. COnnection'ı kesmeden önce ne kadar tablo ve query varsa hepsini tek tek kapattım, olmadı.
Yeni bir proje başlattım, orada tıkır tıkır çalıştı. kod aynı kod. Anlamadım neden olmuyor.

[mussimsek]

iyi etmişsin

projende bir sıkıntı varsa ve yeni projede kodlar çalışıyorsa şunları yapmak %95 ihtimalle sorunu çözüyor.

1. Projeni kapatıp, Projenle aynı isimdeki dosyaları .dpr ve .res uzantılı olanlar hariç hepsini sil. Mesala projen hdayi ise, hdayi.dpr ve hdayi.res hariç, hdayi ismindeki tüm dosyaları sil.

2. birinci adım büyük ihtimal sorunu çözecektir. Çözmez ise, formu projende sil, yeni bir form oluştur. Copy-paste ile üzerindeki bileşenleri vs. koy. Eğer çok fazla bileşen yoksa, bunları da sıfırdan oluşturmak daha da iyidir.

NOT : Yedek al, birşey olursa yedekten geri dönersin

Kolay gelsin.

[hdayi]

Problem çözüldü, program bir bilgisayrda açıkmış
proje dosyalarını silince çalıştı.

Teşekkürler

[mussimsek]

bu mutlu sonlara bayılıyorum

[hdayi]

Valla Admin'im sen söylemesen o dosyaları silmek benim 40 yıl düşünsem gelmezdi aklıma. Söylememiştim ama copyfile'da çalışmıyordu.
Şükür şimdi çalışıyor.
Tekrar ve tekrar teşekkürler.