title image


Smiley Re: Alle Dateien mit größe 1kb anzeigen
Hallo!Das folgende Programm läuft rekursiv und löscht alle Dateien, die kleiner/gleich 1kB (1024 Bytes) sind.Doch vorsicht! Die Dateien werden ohne Rückfrage gelöscht, darum habe ich die betreffende Zeile auskommentiert!Option ExplicitPrivate anz As IntegerSub main() anz = 0 Call verzeichnis("c:\") ' Startverzeichnis mit abschließendem "\" MsgBox anzEnd SubSub verzeichnis(ByVal pfad As String) Dim dn As String Dim verz() As String Dim i As Integer Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") i = 0 dn = Dir(pfad & "*.*", 63) While dn "" If fso.FolderExists(pfad & dn) And dn "." And dn ".." Then i = i + 1 ReDim Preserve verz(1 To i) verz(i) = pfad & dn & "\" End If dn = Dir() Wend If i 0 Then For i = LBound(verz) To UBound(verz) Call verzeichnis(verz(i)) Next i End If dn = Dir(pfad & "*.*", vbVolume Or vbNormal Or vbArchive Or vbHidden Or vbReadOnly Or vbSystem) While dn "" If fso.FileExists(pfad & dn) Then If FileLen(pfad & dn) ' kill pfad & dn anz = anz + 1 End If End If dn = Dir() WendEnd SubCUMitch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: