Moin !
In FileList[j] steht der ganze Pfad also z.B.
C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\LogView V2 Test\Binary\PortmonXP
Einen Wechsel mache ich nicht. Mein Verzeichnis löschen schaut so aus:
Delphi-Quellcode:
for j := FileList.Count -1 downto 0 do begin
if IsFolderEmpty(FileList[j]) then begin
Log('Löschen leeres Verzeichnis : ' + FileList[j], ClMaroon, True);
Log('Löschen : ' + IntToStr(ShellDelete(FileList[j])), clRed, True);
//if NOT RemoveDir(FileList[j]) then
// Log('Problem beim Löschen : ' + SysErrorMessage(GetLastError), clRed, True);
end;
end;