Function ShowFolderListTest
Dim fso, f, f1, fc, s, folderspec
folderspec="[типо, путь]"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
If fs.Count > 0 Then
For Each f1 in fc
Debug.Print f1.name
Next
End if
End Function
|