Created by Rob Bovey:
Uses path as argument and it returns True if the
path is empty or doesn’t exist and False if the path contains files.
Dim bReturn As Boolean
Dim szTemp As String
bReturn = True
If Right$(szPath, 1) <> “” Then szPath = szPath & “”
szTemp = Dir$(szPath & “*.*”)
If szTemp <> “” Then bReturn = False
bIsEmpty = bReturn
Editor’s note: I guess I never realized that Dir was string function. Jake pointed out in String Function Efficiency that I should use the dollar sign, and by gosh I’ve really tried. Now I’ll have to beat it into my head to use it with Dir too.