Dosya Kopyalamıyor..

[lovecraft]

Kod: Tümünü seç

kaynak := ExtractFileDir(Application.ExeName)+'\VT\VT.GDB';
hedef := ExtractFileDir(Application.ExeName)+'\VT\'+sirketlertable.Fields[1].Text+'\'+cyili+'\VT.GDB';
if Windows.CopyFile( PChar(kaynak), PChar(hedef), false ) then
begin
..yapılan işlemler
end

Böyle bir kod denedim fakat VT klasörü altında otomatik kendisi klasör oluşturup dosyayı kopyalayamadı.. sorun nedir acaba?

[mrmarman]

- Burada dosya isimlerinin ve yolunun doğru elde edilip edilmediğini kontrol ettin mi ? İlk bakılacak yer orası.

- İkincisi bu ilgili dizinler var mı ? Yoksa yine başarısız olur...

Kod: Tümünü seç

  kaynak := ExtractFileDir(Application.ExeName)+'\VT\VT.GDB';
  hedef  := ExtractFileDir(Application.ExeName)+'\VT\'+sirketlertable.Fields[1].Text+'\'+cyili+'\VT.GDB';
  ShowMessageFmt(' Kaynak Dosya : %s'#13#13'Hedef Dosya : %s', [ Kaynak, Hedef ]);

[sabanakman]

Kod: Tümünü seç

kaynak := ExtractFileDir(Application.ExeName)+'\VT\VT.GDB';
hedef := ExtractFileDir(Application.ExeName)+'\VT\'+sirketlertable.Fields[1].Text+'\'+cyili+'\VT.GDB';
if Windows.CopyFile( PChar(kaynak), PChar(hedef), false ) then
begin
..yapılan işlemler
end

Böyle bir kod denedim fakat VT klasörü altında otomatik kendisi klasör oluşturup dosyayı kopyalayamadı.. sorun nedir acaba?

Burada yapılan hata sanırım CopyFile fonksiyonu ile kalsör oluşturulmasının beklentisi içinde olmak. Halbuki bu fonksiyon sadece var olan klasörlere kopyalama yapabilir. Dosya kopyalamadan önce ForceDirectories fonksiyonu ile klasörü oluşturmak gerekmektedir.

Kod: Tümünü seç

kaynak := ExtractFileDir(Application.ExeName)+'\VT\VT.GDB';
hedef := ExtractFileDir(Application.ExeName)+'\VT\'+sirketlertable.Fields[1].Text+'\'+cyili+'\VT.GDB';

HedefKlasor:=ExtractFilePath(Hedef);
if not ForceDirectories(HedefKlasor) then
 raise Exception.CreateFmt('%s klasörü oluşturulamıyor',[HedefKlasor]);//<-

if Windows.CopyFile( PChar(kaynak), PChar(hedef), false ) then
begin
..yapılan işlemler
end

Şeklinde kod eklemesi ile bu sorun giderilir.

[mrmarman]

... otomatik kendisi klasör oluşturup ...

- Bu kısım dikkatimden kaçmış tabii ki @sabanakman'ın dediği gibi kopyalamadan önce hedef dizini oluşturmak zorunluluğu vardır.

[lovecraft]

Allah razı olsun arkadaşlar çok saolun... takıldığım noktalardan biriydi..