Я думаю, что у вас есть, в значительной степени это
Const PATH = "C:\Path\to\folder"
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim folder: set folder = fso.getFolder(PATH)
if folder.files.Count <> 0 then
'do something
end if
Возможно, вы захотите проверить правильность пути с помощью FolderExists()
перед getFolder(PATH)
или поймать ошибку, если путь несуществовать.Коллекция files
не включает подпапки.