Sorry it is my oversight...the below is to extract folders alone...
--
If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

MyPath = "c:\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName < ""
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
MsgBox(MyName)
End If
MyName = Dir()
Loop

If this post helps click Yes
---------------
Jacob Skaria


"pjryan" wrote:

I am using dir(path, vbdirectory) to return the names of folders and files,
but instead of getting the folder name, I am getting "." How can I remedy
this.

Thanks