[AccessD] Dir command trouble

It works for me on "C:\"

Sub FileFolderLIst()
Dim FileFolder As Variant
Dim strPathname As String
strPathname = "C:\"
FileFolder = Dir(strPathname)
FileFolder = Dir(strPathname, vbDirectory)
Debug.Print FileFolder
End Sub


As does  the example in A2K3 Help under Dir() - which show how to *only* list the directories 
rather all files as well.

Sub Test()
Dim MyPath As String
Dim MyName As String
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop
End Sub




On 13 Apr 2011 at 14:22, Kaup, Chester wrote:

> I am running the following code to get a list of file folders. All it
> returns is an empty string. What might I be missing?
> 
> Sub FileFolderLIst()
> 
> Dim FileFolder As Variant
> 
> strPathName = "M:\SACROC\Data\Pablic\Step-Rate Tests\Area 2\"
> FileFolder = Dir(strPathName)
> FileFolder = Dir(strPathName, vbDirectory)
> 
> End Sub
> 
> 
> Chester Kaup
> Engineering Technician
> Kinder Morgan CO2 Company, LLP
> Office (432) 688-3797
> FAX (432) 688-3799
> 
>  
> No trees were killed in the sending of this message. However a large
> number of electrons were terribly inconvenienced.
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>