[AccessD] Dir command trouble

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.