Sub DirectoryExists(ByVal DirectoryPath As String) 
If My.Computer.FileSystem.DirectoryExists(DirectoryPath) = False Then MsgBox("Le répertoire n'existe pas")
End Sub
'Exemple d'utilisation:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
DirectoryExists("C:\")
End Sub

File dir = new File("/home/twinuts");
if(dir.exists() && dir.isDirectory())
    System.out.println(dir + " est un répertoire existant");
else
    System.out.println(dir + " n'existe pas ou n'est pas un répertoire");

If DirectoryExists('C:\Windows\') Then 
  ShowMessage('Le répertoire existe') 
Else
  ShowMessage('Le répertoire n''éxiste pas');

If System.IO.Directory.Exists("C:\Le\Chemin\Du\Dossier") Then


     MsgBox("Le dossier existe")
End If

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

function RepExiste(repertoire)
{
    var fso=new ActiveXObject("Scripting.FileSystemObject");
    return(fso.FolderExists(repertoire));
}

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

function DirectoryExists(sDirectory)
'  le  dernier "\" est facultatif
'  existe => retourne  -1
'  n'existe pas => retourne 0
  dim FSO
  set FSO = CreateObject("Scripting.FileSystemObject")
  DirectoryExists = FSO.FolderExists(sDirectory)
  set FSO = nothing
end function