Directory Code to access files is not working?

[tekvb1977]

The code below is driving me nuts. It's a simple and used to work on my machine but now all of a suddent it's not working properly:

Dim strFolderName As String

strFolderName = Dir$("G:\QuoteSheets\*QuoteSheet*")

If strFolderName = "" Then
Exit Function
End If

My directory ("G:\QuoteSheets\*QuoteSheet*")is not empty. It has two excel files in it. But when i try to run the code it exits the function becasue it detects that strFolderName = ""


Any ideas why this is happening.

Thanks a lot in advance.

J

 

[Zion7]

try

strFolderName = Dir$("G:\QuoteSheets\*QuoteSheet*",vbDirectory)