Einzelnen Beitrag anzeigen

Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#4

Re: Gesperrte Dateien löschen

  Alt 21. Jul 2006, 12:40
Hallo, himitsu!

Der erste Teil wird ausgeführt wenn die kleiner als Len 3 sind, um Fehleingaben wie C:\ zu umgehen
der zweite Teil geht in Aktion wenn z. B. C: übergeben wurde.

Dieser Code ist aber meines Erachtens zweifach fehlerhaft, weil ja ein hier ein 'C:\' = Len 3 übergeben werden kann. Richtig muss es heißen, da ja ein FilePath mit der Laufwerksangabe wohl mindestens 4 Buchstaben haben muss und z. B. so aussieht: C:\a und wenn Len < 4 ist, wird nix gelöscht und result:=false; gesetzt.

Delphi-Quellcode:
if StrLen(PChar(ExtractFileDrive(aFileName))) < 4 then
  Result := False; // Falls Filename z. B. nur aus C:\ besteht
else
  Result := MoveFileEx(PChar(aFileName), nil, MOVEFILE_REPLACE_EXISTING +
      MOVEFILE_DELAY_UNTIL_REBOOT);
Ich hoffe, ich konnte Dir weiterhelfen!

Beste Grüße.
Go2EITS
  Mit Zitat antworten Zitat