MyTetra Share
Делитесь знаниями!
Список файлов-каталогов
13.09.2018
12:50
Текстовые метки: VBA, DIR
Раздел: VBA - Разобрать

Sub Catalog()

Dim strFolder As String

Dim Path As String, fName As String, i As Integer


strFolder = "D:\Public\Documents\"


Path = strFolder & "*.*" ' можно и "*.xls"

'добавить параметр vbDirectory, то будут выведены так же папки, _

входящие в указанную папку и ссылки на вышестоящую ".." и корневую "." папки.

'fName = Dir(Path)

fName = Dir(Path, vbDirectory)

If Len(fName) = 0 Then

Debug.Print "Папка пуста"

Else

i = 0

Do While fName <> ""

i = i + 1

Debug.Print i, fName

fName = Dir

Loop

Debug.Print "Просмотр окончек"

End If


End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования