Comprobar Directorio

Dim FSO As Object

Private Sub Command1_Click()

    Set FSO = CreateObject("Scripting.FileSystemObject")

    If FSO.FolderExists("C:\Documents and Settings\User\Escritorio") Then

        MsgBox "Si existe"

    Else

        MsgBox "No existe"

    End If

End Sub