Moinsen!!
Ich arbeite grad an einem kleinen Programm, das Dateien löschen kann^^... so allerdings hab ich ein kleines Problem:
Denn ich wollt dem User die Möglichkeit geben ein Backup der zu löschenden Datei zu erstellen. So weit so gut da hab ich hier in der
DP mal nach Möglichkeiten gesucht, eine Datei zu kopieren oda gar zu komprimieren...
UND ich hab was gefunden. So nun aba mal zu meiner eigentlichen Frage:
Ich habe folgenden code verwendet:
Delphi-Quellcode:
procedure TLogFileViewForm.BackupderDateierstellen1Click(Sender: TObject);
var
path,files: string;
begin
path := ExtractFilePath(ParamStr(0));
Files := ExtractShortPathName(Open.Filename); //Open ist der Name meines OpenDialogs^^
// Compress(files,path + 'Backups'); {Code zum komprimieren von Dateien -> funzte nit}
{ if CopyFile(PChar(ExtractShortPathName(Open.FileName)),PChar(path + 'Backups\'+ Files + Datetimetostr(now) +'.bkp'),false) then
ShowMessage('Backup erfolgreich erstellt!') {Code zum verschieben/kopieren einer Datei -> ich bekam immer nur ne Fehlermeldung}
{ else ShowMessage('Fehler beim Backup!');}
Kopieren(Files,path + 'Backups\' + Datetimetostr(now) + '.bkp',true); {Hier ebenso...}
end;
Kopieren bezog sich auf folgende Funktion:
Delphi-Quellcode:
function Kopieren(const Quelle, Ziel: string; Ueberschreiben: Boolean = true): Boolean;
begin
Result := CopyFile(PChar(Quelle),PChar(Ziel),not Ueberschreiben);
end;
woran liegt es, das ich bei jeder der benutzten Möglichkeiten immer eine Fehlermeldung oda kein ergebnis bekomme?
Sowohl Dateien als auch Verzeichnisse haben existiert...????
