Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor

Sub lstFilesInFolder(strNameFolder As String) ' процедура получения всех файлов c расширением  txt в папке с подпапками Dim subFolder As Object Dim folder As Object Dim fso As Object Dim file As Object Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(strNameFolder) Debug.Print "***** Папка - " & strNameFolder For Each file In folder.Files     If LCase(fso.GetExtensionName(file.Path)) = "txt" Then          Debug.Print file.Name           End If Next For Each subFolder In folder.SubFolders    lstFilesInFolder (subFolder.Path) Next End Sub