'Projekt/Verweis hinzufügen/COM/Microsoft Scripting Runtime
 
Imports Scripting
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        MsgBox(FilesCount("C:\"))
    End Sub
 
    Private Function FilesCount(Folder As String) As Long
        Dim FSO As New FileSystemObject
        Dim oFolder = FSO.GetFolder(Folder)
        Return oFolder.Files.Count
        oFolder = Nothing
        FSO = Nothing
    End Function
 
End Class