Paradoxta yedek

[AfterPost]

Sevgili Delphi Dostları ;
Paradox veri tabanında yedek aldırmak şöyle ki;
D:\Datalar dizininde ilgili veri tabanı dosyaları olsun
kullanıcı yedekle dediğinde
D:\Yedekler\Yedek1 klasörü oluşacak ve ilgili dosyalar kopyalanacak
tekrar yedekler dediğinde
D:\Yedekler\Yedek2 klasörü oluşacak ve ilgili dosyalar kopyalanacak
...
bu şekilde alt alta klasörlerin içinde veritabanı dosyaları sıralanacak

Şimdiden emeği geçen tüm Delphi dostlarına teşekkürü bir bir borç bilirim
Saygılarımla

[mrmarman]

(1) if directoryexists( strKlasor) then

Şeklinde klasörün var olup olmadığını anlamak mümkün.

(2) Bir while döngüsü kurun, (1) nolu if sorgusu FALSE ise döngü sona ersin. Döngüden çıktığında strKlasor ne ise o isimde klasör create edip db'yi kopyalarsın.

[AfterPost]

Hocam , kod şeklinde yazarsanız çok sevinirim ...

[mrmarman]

Telefondan yazıyorum yanlışım olabilir.

Kod: Tümünü seç

Var
  strKlasor : string;
  iSayac : Integer;
Begin
  iSayac := 1;
  strKlasor := extractfilepath(application.exename) + 'data\yedek' +iSayac;
  While directoryexists( strKlasor)  do
  Begin
    inc(iSayac) ;
    strKlasor := extractfilepath(application.exename) + 'data\yedek' +iSayac;
  end;
  CreateDirectory( strKlasor) ;
  Showmessage( strKlasor + ' klasörü yeni klasörümüzdür' ) ;
End;

[AfterPost]

evet , hocam
strKlasor := extractfilepath(application.exename)+'datalar\yedek' +iSayac;
bu satırda hata var ..

[mrmarman]

Lütfen intToStr(isayac) de bir zahmet.

Şimdi bir de datalar yedek klasörüm yok ne yapacağım diye de sorarsan çifte kavrulmuş kızarım