AW: Ordnernamen und inhalt zaehlen
04.06.2008 17:06:00
Renee
Hi Hary,
Mit dieser Funktion, kriegst du die Anzahl Dateien oder die Anzahl Unterordner.
Parameter 1: True Dateien zählen False Verzeichnisse zählen
Parameter 2: Verzeichnis in dem gestartet wird, default ist Verzeichnis des Workbooks
Parameter 3: True Unterverzeichnisse einbeziehen False ohne Unterverzeichnisse
Public Function getFilesCnt(Optional bFilesCount As Boolean = True, _
Optional vStartFolder As Variant = "", _
Optional bSubFolders As Boolean = False) As Long
Dim objFS As Object
Dim vFolders As Variant
Dim vSubFolders As Variant
Dim vFolder As Variant
Dim vFiles As Variant
Dim lSubFCount As Long
Dim lFilesCount As Long
On Error Resume Next
Set objFS = CreateObject("Scripting.FileSystemObject")
If vStartFolder = "" Then vStartFolder = ActiveWorkbook.Path
Set vFolders = objFS.GetFolder(vStartFolder)
Set vSubFolders = vFolders.SubFolders
If bFilesCount Then lFilesCount = vFolders.Files.Count
For Each vFolder In vSubFolders
lSubFCount = lSubFCount + 1 + _
IIf(bSubFolders, getFilesCnt(False, vStartFolder & "\" & vFolder.Name, bSubFolders), 0)
If bFilesCount Then
lFilesCount = lFilesCount + _
getFilesCnt(True, vStartFolder & "\" & vFolder.Name, bSubFolders)
End If
Next
getFilesCnt = IIf(bFilesCount, lFilesCount, lSubFCount)
End Function
GreetZ Renée