Datei Umbenennen

[Gehstock]

Delphi-Quellcode:

Data : String;

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

versuche ich so aber nix passiert

[Fussball-Robby]

welchen Wert hat i?

[Gehstock]

Delphi-Quellcode:

begin
  for I := 1 to ParamCount do
  begin
      RenameFile( ParamStr(i), ExtractFilePath(ParamStr(i)) + data + '.jpg' );

[DeddyH]

Meine Glaskugel ist leider etwas trübe. Existiert die Zieldatei evtl. schon? Hast Du Dir den Rückgabewert von RenameFile mal ausgeben lassen?

[Fussball-Robby]

Außerdem: Muss der Dateipfad nicht im ersten Parameter stehen, und im zweiten ausschließlich der neue DateiNAME?

[Gehstock]

Eigentlich müsste es doch so passen

Delphi-Quellcode:

writeln ('Data = '+data);
      writeln('');
      writeln('');
      writeln ('ParamStr = '+ParamStr(i));
      RenameFile( ParamStr(i), ExtractFilePath(ParamStr(i)) + data + '.jpg' );
      writeln('');
      writeln('');
      writeln ('Ausgabe = '+ ExtractFilePath(ParamStr(i)) + data + '.jpg');

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

begin
  for I := 1 to ParamCount do
  begin
      RenameFile( ParamStr(i), data + '.jpg' );

[Fussball-Robby]

Zitat:

Zitat von DeddyH

Hast Du Dir den Rückgabewert von RenameFile mal ausgeben lassen?

[Gehstock]

das selbe keine Änderung


Rückgabewert ist FALSE

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

[DeddyH]

Rein logisch kann es ja nur so sein, dass eine Datei nur innerhalb desselben Verzeichnisses umbenannt werden kann, sonst wäre es ja ein Verschieben. Von daher denke ich, dass Robby Recht hat und der Pfad beim 2. Parameter wegfallen muss. Sonst versuch es mal mit MoveFile.

[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: