CREAR CARPETA

11/01/2006 - 17:02 por Marvin | Informe spam
Grupo, un saludo para to2 y un feliz 2006¡¡¡...

Alguien me puede ayudar con el código para una macro en donde pueda
comprobar si existe o no una carpeta sobre una ruta específica y sino existe
preguntar si se crea o no sería de gran ayuda...GRCS
 

Leer las respuestas

#1 KL
12/01/2006 - 00:39 | Informe spam
Hola Marvin,

Mira a ver si te sirve el siguiente codigo. Ojo - la funcion Split solo esta disponible a partir del Office 2000.

Saludos,
KL


Sub test()
Dim Ruta As String, Directorios, Temp As String, i As Long
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

Preguntas similares