Finns det något sätt att ENBART lista kataloger med dir komandot eller något mosvarande komando?

/Jacob

Använd dir tillsamans med vbDirectory.
Sedan begränsar du urvalet med GetAttr() = vbDirectory.

(Skriver ett exempel i morgon)

dir/ad

<code>
Dim Path As String
Dim FileName As String
Path = "c:\Windows\"

FileName = Dir$(Path, vbDirectory)
If FileName = "." Then
Dir$
FileName = Dir$
End If
Do While Len(FileName)
If GetAttr(Path & FileName) And vbDirectory Then
Debug.Print FileName
End If
FileName = Dir$
Loop
</code>

Tack för det fina exemplet!

/Jacob