VBA Folderexistes

If Dir("C:\Temp\xxx", vbDirectory) = "" Then
    MsgBox "Doesn't exists"
End If
VasteMonde