![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 2239 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 