ник: snipe
через FileSystemObject (необходимо подключение библиотеки Microsoft Scripting Runtime)
Dim fs As New FileSystemObject
Dim ddd As Long
ddd = fs.GetFolder("C:\Новая папка").Files.Count
Set fs = Nothing
Msgbox "Количество файлов в папке " & ddd
|