RenameFile(oldFile, newFile)

[Luckie]

Zitat von qb-tim:

Das Programm das ich schreibe speichert alle Ordner und Dateien in 'C:\Program Files\Vokabeltrainer XXL\...'. Es erstellt diese Ordner wenn sie nicht vorhanden sind.

Diesen Ordner gibt es bei mir nicht und ich würde sehr allergisch reagieren, wenn du diesen erstellen würdest, da dein Programm in das Progammsystemverzeichnis gehört und das ist unter einem deutschen Windows: C:\Programme.

[qb-tim]

Was ist nun bei meiner "Umbenennungs"-Prozedur falsch?
Wieso funktioniert sie nicht?

[Klaus01]

Hallo Tim,

bist Du Dir sicher, das keine Datei in dem Ordner geöffnet ist?

meine TestMethode funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  renameFile('e:\ren Test','e:\ren Test2');
end;

oder so

Delphi-Quellcode:

procedure FileRename(oldFileName,newFileName:String);
var
  anyFile : File;
begin
  AssignFile(anyFile,oldFileName);
  rename(anyFile,newFileName);
end;

Kannst Du mal zu Kontrolle ausgeben welche Verzeichnisse du umbennen möchtest.
Ich denke da liegt Dein Fehler begraben.

Grüße
Klaus

[qb-tim]

Der Ordner war am Zeitpunkt der Umbenennung völlig leer.

Ich habe die komplette Unit3 angehängt, damit du (wenn du Lust dazu hast) darin rumstöbern kannst.

[Klaus01]

Hallo Tim,

Delphi-Quellcode:

procedure TForm3.EditBuchClick(Sender: TObject);
var f, g, s, t : String;
begin
  s := ListBox1.Items[ListBox1.ItemIndex];
  t := InputBox('Buch ändern', s, '');
  if t <> '' then
    if MessageDlg(s + ' zu ' + t + ' ändern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin                                                  // <-- hier Breakpoint setzen
      f := 'C:\Program Files\Vokabeltrainer XXL\' + t;  
      g := 'C:\Program Files\Vokabeltrainer XXL\' + s;  
      RenameFile(g, f);
      Form3.FormActivate(Form3);
    end;
end;

setze doch mal einen Breakpoint an der markierten Stelle
und lass Dir die Variablen f und g einmal ausgeben.
Variablen anschauen geht wenn Du die Variable markierst und dann crtl-F5
drückst. Die Variable wird dann der Watchlist hinzugefügt.
In der Watchlist werden die Werte der Variablen ausgegeben.

Ich bin mal gespannt ob f und g die Werte haben, die Du Dir so vorstellst.

Was vielleicht auch nicht schlecht wäre, Deinen Sourcecode ein wenig mehr zu kommentieren
und den ganzen Listboxen und Buttons Namen zu geben unter den man sich auch was vorstellen kann.
So ist es so ziehmlich unmöglich Dein Programm zu verstehen.

Grüße
Klaus

[qb-tim]

Danke. Ich probier's gleich aus.

[qb-tim]

Etwas sehr merkwürdiges ist passiert:

Ich habe zuerst, ohne mein Programm zu ändern (nicht einmal Kommentare zu schreiben), mein Program getestet und es funktionierte NICHT.

Dann habe ich auf den Vorschlag von Klaus Kommentare geschreiben und den Breakpoint gesetzt.
Das Programm hielt nicht an.

Ich habe dann den Breakpoint entfernt und das Programm noch einmal laufen lassen.

Die Umbenennung hat funktioniert! Sowie bei einem leeren als auch bei einem Ordner mit mehreren Dateien!

[qb-tim]

Hier ist die funktionierende Version.

Ich habe mehr Kommententare hinzugefügt. - Ist das jetzt verständlicher?

Danke für eure Hilfe!

[semo]

ich würde das ganze projekt oder zumindest die *.dfm-Datei mit zur *.pas-Datei posten beim nächsten Mal. Dann kann man auch sehen wie du das Formular aufgebaut hast.

Beim Überfliegen ist mir aufgefallen, dass du den Pfad 'C:\Program Files\Vokabeltrainer XXL\...' immer wieder aufrufst. Du solltets entweder eine Konstante per const definieren und diese aufrufen oder den Pfad deines Programms zur Laufzeit auslesen (zum Beispiel im FormCreate) und dieses in einer Variable festhalten, auf deren Inhalt du dann nach belieben zugreifen kannst.