Schon mal vielen Dank für die Hilfe!
Ich muss doch einwenig mehr schreiben. Der Anwender ist dumm und kennt den Unterschied zwischen Dateien und Verzeichnisse nicht. Er hat nur eine Liste mit Verzeichnisse und Dateien gemischt vor sich und möchte daraus beliebig löschen. Also, die Listbox ist schon fertig eingelesen mit Dateien und Verzeichnisse. Im Nachhinein sollen Verzeichnisse und/oder Dateien gelöscht werden. Also brauche ich soetwas, oder?
Delphi-Quellcode:
if DirectoryExists(ListBox1.Items[A]) then
begin
If deldir(ListBox1.Items[A]) = True then
MessageDlg('Verzeichnis gelöscht!', mtInformation, [mbOK], 0);
end
else
DeleteFile(ListBox1.Items[A]);
Gruß
Heike