Macro para crear carpetas

hola, Javier !

... como crear carpetas con una macro?
... que... verifique si existe esa carpeta y si no es asi la cree, y asi sucesivamente [...]

1) revisa en la ayuda de vba acerca de las instrucciones: MkDir, RmDir, Kill
2) toma las debidas precauciones para que los nombres NO contengan caracteres 'no validos'
3) habra que 'validar' si algunos directorios 'ya existieran' [suponiendo que el codigo sea 'repetible']
4) revisa el siguiente enlace: http://tinyurl.com/5ords

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

Este macro lo hice en base a un codigo de J.Walkenbach para una consulta parecida:


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


Saludos,
KL


"Héctor Miguel" wrote in message news:%

hola, Javier !

... como crear carpetas con una macro?
... que... verifique si existe esa carpeta y si no es asi la cree, y asi sucesivamente [...]

1) revisa en la ayuda de vba acerca de las instrucciones: MkDir, RmDir, Kill
2) toma las debidas precauciones para que los nombres NO contengan caracteres 'no validos'
3) habra que 'validar' si algunos directorios 'ya existieran' [suponiendo que el codigo sea 'repetible']
4) revisa el siguiente enlace: http://tinyurl.com/5ords

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.