

Sub test()
Dim Ruta As String, Directorios, Temp As String
Dim i As Long, Respuesta As VbMsgBoxResult
Ruta = "D:\temp\prueba\carpeta\test"
If Dir(Ruta) = "" Then
Respuesta = MsgBox( _
"La carpeta no existe. Desea crearla?", _
vbExclamation + vbOKCancel)
If Respuesta = vbCancel Then Exit Sub
Directorios = Split(Ruta, "\")
On Error Resume Next
For i = LBound(Directorios) To UBound(Directorios)
Temp = Temp & Directorios(i)
If Temp <> "" Then Temp = Temp & "\"
On Error Resume Next
ChDir Temp
If Err.Number <> 0 Then
MkDir Temp
End If
Next i
On Error GoTo 0
End If
'tu codigo principal
End Sub

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados