Function FileExists(ByVal FileSpec As String) As Boolean
‘ Karl Peterson MS VB MVP
Dim Attr As Long
‘ Guard against bad FileSpec by ignoring errors
‘ retrieving its attributes.
On Error Resume Next
Attr = GetAttr(FileSpec)
If Err.Number = 0 Then
‘ No error, so something was found.
‘ If Directory attribute set, then not a file.
FileExists = Not ((Attr And vbDirectory) = vbDirectory)
End If
End Function

I tweaked it a little (all by myself!) for DirExists:

Function DirExists(ByVal FileSpec As String) As Boolean
‘ Karl Peterson MS VB MVP
Dim Attr As Long
‘ Guard against bad FileSpec by ignoring errors
‘ retrieving its attributes.
On Error Resume Next
Attr = GetAttr(FileSpec)
If Err.Number = 0 Then
‘ No error, so something was found.
‘ If Directory attribute set, then not a file.
DirExists = (Attr And vbDirectory) = vbDirectory
End If
End Function

I haven’t come across the need for DirEmpty. It seems I’d want to know the difference between a directory being empty and not existing at all, so I’d probably use DirExists, then do Dir$ on *.* within the path.

- Jon