current = 0
dircount = 0
currentdir = CurDir() & "\"
While current <= dircount
    subdirect = Dir(currentdir, vbDirectory + vbHidden)
    While subdirect <> ""
        subdirect = Dir ' Each directory found
    Wend
    current = current + 1
Wend