Tipp 0059 Ordner-Informationen ermitteln
Autor/Einsender:
Datum:
  Detlev Schubert
19.05.2001
Entwicklungsumgebung:   VB 5
Wie viele Dateien ein Ordner (Verzeichnis) enthält, und welchen Umfang (Verzeichnisgröße in kByte) dieser hat, lässt sich mit einigen wenigen Code-Zeilen realisieren, und wird in diesem Tipp anschaulich gezeigt. Um den gesamten Umfang eines Ordners inkl. aller Unterordner zu ermitteln, schauen Sie sich den Tipp Ordner-Informationen (extended) an. Hier wird die rekursive Suche genutzt, um alle Daten zu erhalten.
 
Option Explicit

Private Sub Form_Load()
  Dir1_Change
End Sub

Private Sub Dir1_Change()
  Dim i As Integer, zaehler As Long

  File1.Path = Dir1.Path
  For i = 0 To File1.ListCount - 1
    zaehler = zaehler + FileLen(Dir1.Path & " \" & File1.List(i))
  Next i

  Label1(0).Caption = Format$(File1.ListCount, "###,##0") & " "
  Label1(1).Caption = Format$(zaehler / 1024, "###,##0") & " "
  Label1(5).Caption = Dir1.Path
End Sub

Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
End Sub
 
Weitere Links zum Thema
Rekursives Suchen von Dateien (API)
Rekursives Suchen von Dateien (FSO)

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,1 kB) Downloads bisher: [ 2106 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Mittwoch, 31. August 2011