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
Paradoxta yedek
Re: Paradoxta yedek
(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.
Ş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.
Re: Paradoxta yedek
Hocam , kod şeklinde yazarsanız çok sevinirim ...
Re: Paradoxta yedek
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;
Re: Paradoxta yedek
evet , hocam
strKlasor := extractfilepath(application.exename)+'datalar\yedek' +iSayac;
bu satırda hata var ..
strKlasor := extractfilepath(application.exename)+'datalar\yedek' +iSayac;
bu satırda hata var ..
Re: Paradoxta yedek
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
Şimdi bir de datalar yedek klasörüm yok ne yapacağım diye de sorarsan çifte kavrulmuş kızarım