Merhaba;
DB Backup için kopyalama yapmak istiyorum, fakat kopyalama işlemi bir türlü*gerçekleşmiyor.*showmessage ile adresleri kontrol ediyorum sorun yok*
*sorun neden kaynaklanıyordur?
procedure TForm2.Button5Click(Sender: TObject);
var
* FileSource, FileDest: String;
begin
* Button5.Enabled := False;
* FileSource := MainDBAdress; // Mevcut DB adresi
* FileDest := DBAdress + FormatDateTime('ddmmyyyyhhnnss', Now) + '.db';
* CopyFile(PChar(FileSource), PChar(FileDest), False);
* Button5.Enabled := True;
* showmessage(FileSource);
* showmessage(FileDest);
end;
DB Backup için kopyalama yapmak istiyorum, fakat kopyalama işlemi bir türlü*gerçekleşmiyor.*showmessage ile adresleri kontrol ediyorum sorun yok*

procedure TForm2.Button5Click(Sender: TObject);
var
* FileSource, FileDest: String;
begin
* Button5.Enabled := False;
* FileSource := MainDBAdress; // Mevcut DB adresi
* FileDest := DBAdress + FormatDateTime('ddmmyyyyhhnnss', Now) + '.db';
* CopyFile(PChar(FileSource), PChar(FileDest), False);
* Button5.Enabled := True;
* showmessage(FileSource);
* showmessage(FileDest);
end;