Сообщество Чайников

Вопрос

Как мне подсчитать количество файлов в указанной папке?

Ответ

Есть два пути решения. Первый — стандартный VB.

Dim i As Integer Dim sFile As String sFile = Dir("c:\myFolder\*.*")
Do Until Len(sFile) = 0 i = i + 1 sFile = Dir Loop MsgBox "Файлов — " & i

Второй — с использованием FileSystemObject. Для этого надо поставить ссылку на библиотеку Projects — References… — Microsoft Scripting Runtime

Dim FSO As FileSystemObject Dim f As Folder Set FSO = New FileSystemObject
Set f = FSO.GetFolder("c:\myFolder") MsgBox "Файлов — " & f.Files.Count

Из конференции Expert_FAQ