Jakápak omezenost, žádný učený z nebe nespadl (touchwood je vyjímka )

Zkus to nějak takhle:

Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder("C:\Test")
Set files = folder.Files
for each objFile in files
sName = objFile.Name
If objFile.Attributes AND 2048 Then
  msgbox sName 
End If
next
set files = nothing
set folder = nothing
set fsoFolder = nothing