Определить файлы в папке с папками

[Calvin]

Добрый день. Как определить имена файлов, содержащихся в папке, где есть еще вложения с папками и файлами?

[tyomitch]

GetAttr() And vbDirectory

[Calvin]

не мог бы помочь с написанием процедуры?

[tyomitch]

То ли издеваешься?

Код: Выделить всё

Function IsNotDirectory(FileName As String) As Boolean
    IsNotDirectory = Not CBool(GetAttr(FileName) And vbDirectory)
End Function


[HandKot]

возможно имелось ввиду список файлов в папке и всех подпапках,
тогда вот