Msgbox

[analoyra]

Hola!!
mi problema es el siguiente, antes de crear una carpeta verifico si existe, si no existe todo bien, pero si existe queria saber si se puede poner un msgbox con una ruta alternativa.
If carpeta.FolderExists(App.Path & "\" & Text1.Text) Then
MsgBox "La carpeta existe, verifique en la ruta",(App.Path & "\" & Text1.Text)+1

por ejemplo


gracias!!!

[David]

En vez de utiizar FileSystemObject puedes usar Dir. Así:

Código:

If Dir(App.Path & "\" & Text1.Text, vbFolder) Then
     MsgBox "La carpeta existe, verifique en la ruta " & App.Path & "\" & Text1.Text & "1"
     'Salimos del procedimiento
     Exit Sub
End If

[analoyra]

Muchas gracias x la ayuda!!!
La nota del trabajo te la estoy debiendo a vos!!

[analoyra]

estoy probando la rutina que me pasaste con una variante, para hacer un control extra
If paso = False Or Dir(App.Path & "\" & Text1.Text, vbFolder) Then
Call ControlCarpetas
End If

pero me dice que no esta definida la variable VbFolder

sil la defino como folder me pone "variable de tipo object o la variable de bloque with no esta establecida".

como lo podria solucionar??
gracias!!

[David]

Lo siento, es que me equivoqué .
Es vbDirectory y no vbFolder. "Errar es humano, pero echarle la culpa a otro es más humano todavía" (La culpa es de Visual Basic ).

Saludos

[analoyra]

jajaj!! si me imagine que era el visual basic el que no se daba cuenta......
muchas gracias!!