Yedekleme Sorunu

[aXéNT]

Arkadaşlar paradox database kullanıyorum ve alias tanımlayarak kullandım. Yani sabit bi yer yok. Yedekleme yaptırmayı becerebiliyorum sorunum şu tarihe göre yedek alıyor ve bir gün içerisinde iki kere yedek alınırsa dosya içerisindekileri silmeden kopyasını oluşturuyor. Bende klasör içerisindekileri silip yerine yenisini atmasını istiyorum. kodları aşağıda verdim bi bakıp yardımcı olursanız çok sevinirim.

Kod: Tümünü seç

procedure Tyedekleme.BitBtn1Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
   T:TSHFileOpStruct;
begin
  fillchar(T, sizeof(T), 0 );
  with T do begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=@frombuf;
    fFlags:=FOF_ALLOWUNDO or FOF_FILESONLY or
            FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(T);
  timer1.Enabled:=True;
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, ExtractFilePath(Application.ExeName)+'Data\*.*' );
  StrPCopy( tobuf, ''+DriveComboBox1.Drive +':\Teknik Servis Data Yedek\'+Label2.Caption+'' );
  With OpStruc DO Begin
   Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
  end;
  ShFileOperation(OpStruc );
end;

[aXéNT]

Valla kusura bakmayın yazdıktan sonra kendim çözdüm olayı. Yöneticiler konuyu silerlerse iyi olur.

[aslangeri]

s.a.
sen çözümü paylaşırsan dah iyi olur.
kolay gelsin.

[aXéNT]

en kısa zamanda yazıcam çözümü. şu an evde değilim dökmanlarım evde olduğu içn yazamıyorum. yarın yazarım.dediğin gibi benim çözümü paylaşmam daha mantıklı

[akuyumcu63]

paradox tablolar için yedekleme kodunuzu rica etsem paylaşabilirmisiniz.

kolay gelsin,

[aXéNT]

Üstünden baya bi geçmiş unutmuşum ben bu konuyu kusura bakmayın. Geçen gün açtığım konulara bakarken gördüm ve paylaşım dedim. Belki ihtiyacı olan birisi olur diye. Kodlar aşağıdaki gibi takıldığınız bi yer olursa sorarsınız

Kod: Tümünü seç

var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
  T:TSHFileOpStruct;
begin
 fillchar(T, sizeof(T), 0 );
  with T do begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=PAnsiChar(Label3.Caption);
    fFlags:=FOF_ALLOWUNDO or FOF_FILESONLY or FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(T);
  timer1.Enabled:=True;
  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, ExtractFilePath(Application.ExeName)+'Data\*.*' );
  StrPCopy( tobuf, ''+DriveComboBox1.Drive +':\Teknik Servis Data Yedek\'+Label2.Caption+'' );
  With OpStruc DO Begin
   Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_SILENT or FOF_RENAMEONCOLLISION or FOF_NOCONFIRMMKDIR;
  end;
  ShFileOperation(OpStruc );
end;

procedure Tyedekleme.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_escape then
  halt;
end;

[akuyumcu63]

yine de çok sağol, Allah kolaylık versin.