RenameFile(oldFile, newFile)

[qb-tim]

Delphi-Quellcode:

//..
  s := ListBox1.Items.GetText;
  t := InputBox('Buch ändern', s, '');
  if t <> '' then
    if MessageDlg('''' + s + ''' zu ''' + t + ''' ändern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      f := 'C:\Program Files\Vokabeltrainer XXL\' + t;
      g := 'C:\Program Files\Vokabeltrainer XXL\' + s;
      RenameFile(g, f);
    end;

Das ist ein Ausschnitt aus einem Vokabeltrainer. In dieser Prozedur wird ein Ordner umbennant. Das funktioniert aber NIE. Wieso? Beide Ordnernamen + -pfade sind korrekt!

[qb-tim]

Noch etwas stimmt in meinem Programm nicht:

Delphi-Quellcode:

//..
  s := ListBox1.Items.GetText;
  if MessageDlg('Wollen Sie ' + s + ' wirklich löschen?', mtWarning, [mbYes, mbNo], 0) = mrYes then
  begin
    s := 'C:\Program File\Vokabeltrainer XXL\' + s;
    RemoveDir(s);
  end;

Liegt da ein Zusammenhang? :gruebel:

[dahead]

Wenn der restliche Code in deinem Programm auch so aussieht, stimmt sicherlich einiges nicht.

Du ermittelst mit Listbox.Items.GetText das aktuell markierte Item (was wohl eine Datei ist). Besser merkst du dir den kompletten Pfad in einem Array oder einer TStringList.

Auf einen Eintrag in einer Listbox greifst du so zu: Listbox1.Items[Listbox1.ItemIndex]. Vorher solltest du natürlich prüfen, ob überhaupt was markiert ist.

RemoveDir müsste eine Funktion sein, also einen Rückgabewert liefern. Diesen könntest du ggf. überprüfen und auswerten.
Edit: Willst du damit ein komplettes Verzeichnis löschen? Wenn ja, solltest du zuerst alle Dateien darin entfernen (Stichwort FindFiles) und dann das Verzeichnis löschen (RemoveDir).

Auch aufgefallen ist mit, dass es "C:\Program File" heisst, müsste egtl. "C:\Program Files" heissen. Zu diesem Thema solltest du keine fixen Pfade verwenden, sondern die Umgebungsvariablen auslesen. Was, wenn jemand ein dt. Windows mit "C:\Programme" hat?

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

Danke für die korrektur - ich überprüft ob es jetzt funktioniert...

[qb-tim]

Die Probleme bleiben aber noch:

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
      f := 'C:\Program Files\Vokabeltrainer XXL\' + t;
      g := 'C:\Program Files\Vokabeltrainer XXL\' + s;
      RenameFile(g, f);
      Form3.FormActivate(Form3);
    end;
end;

Beispiel:

Das markierte "Buch" hat den Namen 'Buch 1' - dies ist ein Ordner ('C:\Program Files\Vokabeltrainer XXL\Buch 1') Da 'Buch 1' als s mit dem Pfad ausgestattet wird und da der neue Name (durch InputBox) auch mit dem Pfad versehen wird, müsste die Umbenennung (RenameFile) doch funktionieren, oder? Tut es aber nicht! Form3.FormActivate(Form3) ist eine Prozedur, die den ListBox auf den neusten Stand bringt...

Problem 2:

Delphi-Quellcode:

procedure TForm3.DelBuchClick(Sender: TObject);
var s : String;
begin
  s := ListBox1.Items[ListBox1.ItemIndex];
  if MessageDlg('Wollen Sie ' + s + ' wirklich löschen?', mtWarning, [mbYes, mbNo], 0) = mrYes then
  begin
    s := 'C:\Program Files\Vokabeltrainer XXL\' + s;
    RemoveDir(s);
  end;
  Form3.FormActivate(Form3);
end;

Beispiel wie vorhin:

Das markierte "Buch" hat den Namen 'Buch 1' - dies ist ein Ordner ('C:\Program Files\Vokabeltrainer XXL\Buch 1') Da 'Buch 1' als s mit dem Pfad ausgestattet wird sollte sie doch gelöscht werden können, oder? Tut es aber nicht! Find-Befehle zu benutzen um die darin zu löschenden Dateien und Ordner zu finden ist mir zu unständlich, da ich für jeden Ordner im Ordner im Ordner im Ordner ................ wiederum Find-Befehle zu schreiben ist viel zu viel!!!

:wall:

:cry:

Wieso werden die Ordner nicht umbenannt?
Wieso wird sogar ein leerer Ordner nicht gelöscht?
Wie kann ich einen ganzen Verzeichnis löschen, ohne endlos lange Quellentexte zu schreiben?

:gruebel:

[qb-tim]

DP Verhaltenskodex sagt: Nur eine Frage pro Thema - deshalb habe ich eine neue Frage zu dem löschen eines gesamten Verzeichnisses erstellt:

http://www.delphipraxis.net/internal...ct.php?t=84128

Bitte antworten dem Thema "gesamten Verzeichnis löschen" dahin posten. :wink:

[thkerkmann]

Hi,

schon mal bei den Schweizern gesucht ? :-)

hier guckst Du: zum löschen und schieben.

Viel Spass

Thomas

Sorry, hatte mich verkopiert ;-) jetzt sollte der Link funktionieren.

[qb-tim]

Was soll ich mit dem Link? Ich werde zu http://www.microsoft.com/ umgeleitet!

[Klaus01]

Zitat:

ind-Befehle zu benutzen um die darin zu löschenden Dateien und Ordner zu finden ist mir zu unständlich, da ich für jeden Ordner im Ordner im Ordner im Ordner ................ wiederum Find-Befehle zu schreiben ist viel zu viel!!!

Um solche Suchen zu erledigen, dazu gibt es recursive Suchen.

Grüße
Klaus

[qb-tim]

Diese Frage wird im oben genannten Thread / Thema behandelt.

Trotzdem, Danke.