Msgbox

[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!!