Yedekleme

[loxka]

Kod: Tümünü seç

procedure TForm1.YAP1Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct; 
  frombuf, tobuf: Array [0..128] of Char; 
Begin 
  {uses kısmına ShellApi unitini ekleyin }
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'c:\Ameliyathane\*.*' );
  StrPCopy( tobuf, 'c:\Ameliyathane\yedek' ); 
  With OpStruc DO Begin 
    Wnd:= Handle; 
    wFunc:= FO_COPY; 
    pFrom:= @frombuf; 
    pTo:=@tobuf; 
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 
  end; 
  ShFileOperation( OpStruc );
end;

Yedekleme yaparken kullanıyorum.. ilk yedek oluşturduğumda "klasör oluşturulsunmu?" diye soruyor. fakat ikinci kez yedek almak istediğimde varolan klasörün yerini alacağına kopya çıkartıyor kopyayedek1-2 .. gibi..
Nasıl sadece hedef klasörün üzerine yedek alabilirim. sadece "var olan klasörü değiştirmek istermisiniz" diye sormalı..
teşekkür ederim..

[mussimsek]

or FOF_RENAMEONCOLLISION kısmını sil. Bu parametre aynı isimde başka bir dosya varsa, 2,3,4.. diye farklı isimler vererek kopyalar.

Kolay gelsin.