| |
 |
Wie kann man Dateien l?schen, kopieren oder verschieben?
06-10-2002 18:33
|
|
1.) Die einfachste Methode
Um Dateien zu l?schen, kopieren oder verschieben, kann man ganz einfach die Windows eigenen Routinen DeleteFile(), CopyFile() und MoveFile() benutzen.
|
var Quelldatei, Zieldatei : string;
//Um eine Datei zu l?schen
if not DeleteFile(PChar(Quelldatei)), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht gel?scht werden!');
end;
//Um eine Datei zu kopieren
if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');
end;
//Um eine Datei zu verschieben
if not MoveFile(PChar(Quelldatei), PChar(Zieldatei), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht verschoben werden!');
|
|
2.) Dateien ?ber eine Dateivariable l?schen
|
{M?glichkeit 2: Erase}
var F : File;
begin
AssignFile(F,Dateiname);
{$I-}
Erase(F);
{$I+}
if IOResult<>0 then
ShowMessage('Datei "'+Dateiname+'" konnte nicht gel?scht werden!');
//Wie zu Pascal Zeiten oder?
|
3. und 4.) TFileStream und TShFileOperation
Das L?schen, Kopieren oder Verschieben von Dateien ist ebenfalls mit TFileStream oder ?ber die API-Funktion TSHFileOperation m?glich.
F?r n?here Informationen dazu erhalten sie in der Delphi Fundgrube(http://www.pics-software.de/faq.html) von Simon Reinhardt.
Mit TSHFileOperation ist es ?brigens auch m?glich die Standard-Windows-Fortschrittanzeige anzeigen zu lassen.
|
|
|
|
|
