bir dizindeki dosyları başka dizindeki yere kopylaama

[aydogan46]

merhabalar;
button1.onclick kısmına oyle bir kod yazmalıyım ki
c:\deneme dizinini ve alt klasor ve dosyaları d:\deneme aynen kopyalasın.
yardımlarınız için teşekkürler. kolay gele

[mussimsek]

Merhaba,

bu işi yapan bir örnek gönderiyorum. uses kısmına Shellapi ekle.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
Begin
  {The fillchars make sure the parameters are terminated by at least
   two #0 characters, this is required since each parameter can hold
   a list of zero-terminated strings, the extra #0 terminates the
   list. }
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'c:\deneme\*.*' );
  StrPCopy( tobuf, 'd:\deneme' );
  With OpStruc DO Begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
  end;
  ShFileOperation( OpStruc );
end;

Kolay gelsin.

[aydogan46]

hocam çok teşekkur ederim. Çalışmalarınızda zihin açıklığı diliyorum

[muskut]

Adminimizin yollamış olduğu kodla ilgili bir sorum olacaktı. Şimdi ben bu kodu Paradox dosyalarını yedeklemek için kullanıyorum. Yedeklememi hep aynı dizine yapıyorum. Ama yaptığım her kopyalamada "Üzerine yazma işlemi" yapmak yerine, kopyalanan dosya isimlerinin başına "Kopya(1)..." gibi bir ibare ekleyerek işlemi gerçekliyor. Ben yaptığım kopyalamanın üzerine yazmasını istiyorum. Bu konuda ne önerirsiniz?

selametle...

[mussimsek]

fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;

bu kısımda o tip ayarlar yapılıyor. FOF_RENAMEONCOLLISION eğer dosya varsa dediğin şekilde farklı bir isim vererek kopyalıyor. or ve sonrasını silip bir dene. Ayrıca diğer flagleri de inceleyerek çeşitli şeyler yapabilirsin.

Kolay gelsin.

[muskut]

Eyvallah,

Elinize dilinize sağlık. Hallettim.

[aXéNT]

Hocam ben denedim sanki üzerine yazıyormuş gibi görünüyor ama hiç bişi yapmıyor. Orda o dosya varsa pas geçiyo :S