Quellcode

Public Function FindFiles(ByVal Path As DirectoryInfo) As Integer
        Dim iAnzahl As Integer
 
        If Not Path.Exists Then
            MessageBox.Show("Ungültiger Pfad")
            Return 0
 
        Else
            'Dateien im Ordner
            Dim Files() As FileInfo = Path.GetFiles()
 
            'Ordner im Ordner:
            Dim Dirs() As DirectoryInfo = Path.GetDirectories()
 
            'Dateien zählen
            iAnzahl += Files.Length
 
            'Rekursion
            For i As Integer = 0 To Dirs.Length - 1
                iAnzahl += FindFiles(Dirs(i))
            Next
            Return iAnzahl
        End If
 
    End Function

Quellcode

Dim oFSO As New FileSystemObject

Dim oFolder As Folder
 
For Each oFolder In oFSO.GetFolder("C:").SubFolders
  List1.AddItem oFolder
Next
 
' Ausgangsverzeichnis
Set oFolder = oFSO.GetFolder("c:")
 
' Anzahl Dateien im Stammverzeichnis von C:
Dim nCount As Long
nCount = oFolder.Files.Count
MsgBox "Im Verzeichnis C:\ befinden sich " & CStr(nCount) & " Datei(en)."

Quellcode

Function FILE_COUNT(ByVal STR_PATH As String) As Long
Dim STR_DATEI As String         	'Zur Speicherung des Dateinamens

STR_DATEI = Dir(STR_PATH)

Do Until STR_DATEI = ""
	FILE_COUNT = FILE_COUNT + 1
	STR_DATEI = Dir
Loop

End Function