Private Declare Function PathIsDirectory Lib "shlwapi" Alias "PathIsDirectoryA" _
(ByVal pszPath As String) As Long
Private Function ExistFolder(sPath As String) As Boolean
ExistFolder = CBool(PathIsDirectory(sPath))
End Function
Private Sub EXEMPLE()
MsgBox ExistFolder("C:\WINDOWS")
End Sub