Private Const INVALID_HANDLE_VALUE = -1&
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileW" ( _
ByVal lpFileName As Long, lpFindFileData As Any) As Long
Private Declare Function FindClose Lib "kernel32" ( _
ByVal hFindFile As Long) As Long
Public Function ExisteDirectory(ByVal Path As String) As Boolean
Dim hSearch As Long, lpFindFileData As Long
hSearch = FindFirstFile(StrPtr(Path), lpFindFileData)
If Not hSearch = INVALID_HANDLE_VALUE Then
ExisteDirectory = True
Call FindClose(hSearch)
End If
End Function