Anzeige
Archiv - Navigation
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordnergröße auslesen

Ordnergröße auslesen
05.08.2006 16:09:19
SteffenS
Hallo und guten Tag,
wie kann ich die Ordnergröße inkl. Unterordner eines best. Verzeichnis auslesen:
Mit:

Function OrdnerBytes(Ordner As String, _
Optional Endung As String = "*.*") As Double
'Für den Parameter Endung kannst Du z.B. *.xls eingeben dann werden nur
'alle Exceldateien gezählt
Dim dblBytes As Double
Dim strName As String
Dim strOrdner As String
dblBytes = 0
If Right(Ordner, 1) = "\" Then
strOrdner = Ordner
Else
strOrdner = Ordner & "\"
End If
strName = Dir(strOrdner & Endung)
Do While Len(strName) > 0
dblBytes = dblBytes + FileLen(strOrdner & strName)
strName = Dir
Loop
OrdnerBytes = dblBytes
End Function

bekomme ich die Unterverzeichnisse nicht mit.
Danke im Voraus.
MFG
Steffen Schmerler

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
sorry beitrag ist doppelt drin gewesen
05.08.2006 16:09:44
SteffenS
.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige