Datei Umbenennen

[Fussball-Robby]

Zitat:

Zitat von Gehstock

war da nicht was mit Anführungszeichen setzen wenn Leerzeichen im Pfad

Bei Delphi sind alle Strings in Anführungszeichen :wink:
Wenn FALSE zurückgegeben wird, wurde die Datei nicht umbenannt. Gibt es evtl schon eine Datei mit dem Namen oder hast du keine Schreibrechte für das Verzeichnis?

Mfg

[Gehstock]

alles negativ kanns mir nicht erklären

[Fussball-Robby]

Wie gesagt, der Dateipfad kommt NUR in den ersten Parameter:

Delphi-Quellcode:

RenameFile( ParamStr(i), data + '.jpg' );

Probier mal, obs so klappt

[SirThornberry]

welchen Wert hat data? hast du dir mal ausgeben lassen zu welchem namen du umbenennst?
wenn data leer ist würdes du, wenn die übergebenen dateien alle im gleichen ordner liegen, versuchen zum gleichen namen zu benennen. Und hast du mal mit FileExists geprüft ob die Quelldatei überhaupt existiert? Und hast du geschaut welche Werte in ParamStr(i) jeweils stehen?

[DeddyH]

Oder so (da gibt es wenigstens eine Fehlermeldung):

Delphi-Quellcode:

for I := 1 to ParamCount do
  begin
      if not MoveFile(PChar(ParamStr(i)),
                      PChar(ExtractFilePath(ParamStr(i)) + data + '.jpg')) then
        ShowMessage(SysErrorMessage(GetLastError));
  end;

[Gehstock]

Nope

Zitat:

writeln ('Data = '+data);
writeln('');
writeln('');
writeln ('ParamStr = '+ParamStr(i));
writeln ('Ausgabedatei = '+data + '.jpg' );
writeln('');
writeln('');
writeln('Ergebnis :');
if not RenameFile(PChar(ParamStr(i)),
PChar(ExtractFilePath(ParamStr(i)) + data + '.jpg')) then
ShowMessage(SysErrorMessage(GetLastError));

[SirThornberry]

autsch, ganz eindeutig. Dein zieldateiname ist ein ungülter Name. Doppelpunkte im Dateinamen waren noch nie erlaubt!

[Gehstock]

Autsch Ganz übersehen ok ändere das mal


Edit das war die Lösung DANKE :hello: