Ordnernamen mit Nummern wird nicht gelöscht.. warum??

[moshhc]

Hi Leutz...

Vielleicht, habt Ihr ne Idee.. wie gesagt ich habe einen Ordner z.B.: c:\Test\123456.. wenn ich versuche den Ordner 123455 zu löschen passiert einfach gar nichts..


Source:

Code:

function DelDir(Dir : String) : Boolean;
var
 FileOption : TSHFileOpStruct;
begin
 ZeroMemory(@FileOption,SizeOf(FileOption));
 with FileOption do
 begin
   wFunc := FO_DELETE;
   fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   pFrom := PChar(Dir + #0);
 end;
 Result := (ShFileOperation(FileOption) = 0);
end;