Verzeichnisoperationen

[Poring]

Nich immer so schnell Posten .. ich weiß

Delphi-Quellcode:

DeleteFile(GetPreviousDir(ExtractFilePath(ParamStr(0))) + 'test.txt');

Jipi, Herzlichen Dank.

Oki... und wie ist das mit CopyFile?

Delphi-Quellcode:

 Copyfile((ExtractFilePath(ParamStr(0)) + 'test.txt'), (GetPreviousDir(ExtractFilePath(ParamStr(0))) + 'test.txt'), false);

Das geht leider nicht :(

[Aurelius]

Was ist dass den für ein Fehler?

Meine Kristallkugel sagt mir, dass

Delphi-Quellcode:

GetPreviousDir(ExtractFilePath(ParamStr(0))) + 'test.txt'

so abgeändert werden muss

Delphi-Quellcode:

GetPreviousDir(ExtractFilePath(ParamStr(0))) + '\test.txt'

//edit: Falscher Slash :D

[Matze]

Nein, die Funktion gibt den Pfad mit letztem Backslash zurück.

Achte auf die Compiler-Meldungen, die sagen alles:

Zitat:

[Pascal Fehler] Unit1.pas(35): E2010 Inkompatible Typen: 'string' und 'PAnsiChar'

Folglich muss es so heißen:

Code:

Copyfile([color=#ff0000][b]PChar([/b][/color]ExtractFilePath(ParamStr(0)) + [color=#000080]'test.txt'[/color][color=#ff0000][b])[/b][/color],
  [color=#ff0000][b]PChar([/b][/color]GetPreviousDir(ExtractFilePath(ParamStr(0))) + [color=#000080]'test.txt'[/color][color=#ff0000][b])[/b][/color], false);

Bzw. PAnsiChar anstelle von PChar.

Edit: Für mich sieht es so aus, als löscht du zuerst eine Datei mit DeleteFile, um diese dann mit CopyFile ersetzen zu können. Falls dies der Fall sein sollte, dann schau dir den 3. Parameter von CopyFile an. Ist dieser true wird eine existierende Datei überschrieben.

[DeddyH]

Zitat:

Zitat von Matze

Ist dieser true wird eine existierende Datei überschrieben.

Genau andersherum, deshalb heißt er ja auch FailIfExists ;)

[Matze]

Zitat:

Zitat von DeddyH

Genau andersherum, deshalb heißt er ja auch FailIfExists ;)

Ups, hätte ich doch lieber in die OH geschaut. :mrgreen: Ich hatte ein OverwriteIfExists in Erinnerung.

Dann ist das DeleteFile soweiso überflüssig, falls es wirklich dazu dient, die existierende Datei vor dem Kopieren zu löschen.