|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
FuzzyDizzie » Delphi » Forum
|
|
|
|
Metod att avläsa tom katalog
2009-12-09 12:14 - dprsys [Registrerad 2007-05-15]
|
Jag skulle vilja ha en metod att snabbt avgöra om en viss katalog är tom på filer så att man kan automatiskt radera den. Finns det någon som har en lösning på detta? Alltså dels hur testar man om en katalog är tom och dels vilket kommando för att ta bort katalogen. För att ta bort fil finns ju deletefile men vad är kommandot för att ta bort en katalog (motsvarande doskommandot rd).
|
|
|
|
|
|
Metod att avläsa tom katalog
2009-12-14 11:33 - sberg [Registrerad 2004-04-20]
|
Hej dprsys!
För att kontrollera om en mapp är tom kan du med fördel använda detta exempel:
http://www.fuzzydizzie.com/tips.aspx?id=558
Du läser av variabeln TotalSize i exemplet. Är den 0 så kan du radera mappen med hjälp av koden nedan eller någon av tipsen i min samling (sök på 'radera').
procedure TForm1.Button2Click(Sender: TObject);
begin
St1:='c:\temp';
RemoveDirectory(St1);
end;
|
|
|
|
|
|
|
|
|