Скрипт, который считает количество файлов в каждой папке, находящихся в данной папке

[Icabod]

Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fileList As String
Set fld = fso.GetFolder(Path)
fileList = ListFilesPriv(fld, NestedDirs)
ListFiles = Split(fileList, ";")
End Function

А вот это совсем плохо, вызывать этот объект в бейсике. Непрофессионально. Тут API нужны, FindFirstFile/FindNextFile. Поищите в сети прожку API Generator for Visual Basic - не пожалеете, она Вам сама все апи объявит, только скопировать и все. Бейсик он на то и бейсик, чтобы API на всю катушку юзать.