/ Forside/ Teknologi / Udvikling / Delphi/Pascal / Tip
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Slet et helt directory, med under direct~
Er bedømt af 3 brugere
Fra : smilly
Vist : 446 gange

Dato : 03-12-00 11:57

{
Køres : emptyDirectory('c:\mitdir',true)

recursive, fortæller om under directories også skal slettes.
}

function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive
then begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec.FindHandle);
end;
end;




 
 
Bedømmelse

Fra : Ferretsdk


Dato : 20-04-01 12:31



Bedømmelse

Fra : katrin


Dato : 23-06-02 00:51



Bedømmelse

Fra : warx100


Dato : 28-02-05 16:21



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 173563
Tips : 31662
Nyheder : 719565
Indlæg : 6383056
Brugere : 218252

Månedens bedste
Årets bedste
Sidste års bedste