Crear directorios desde VBA

Hola Rantamplan,

A ver, vayamos por partes.


1) Lo que falla es esto:
ruta_anno = "c:\Remoto\" + CStr(i)
Esto es porque estas intentando crear 2 niveles a la vez. En el otro PC
donde te funciona lo mas probable es que ya existiera la carpeta c:\Remoto
con anterioridad. Y de paso la funcion CStr es redundante y no aporta
valor (vaya! tambien es redundante la segunda parte de esta frase)

2) No entiendo la finalidad de los bucles
For i 05 To 2010... Next i
y
For j=0 To 11... Next j
Si no has omitido nada en el codigo expuesto se puede prescindir
perfectamente de los bucles.

Prueba esto:

Private Sub CommandButton2_Click()
Dim anno_actual, mes_actual, ruta_mes, ruta_anno
Dim meses As Variant
Dim i As Integer, j As Integer

meses = Array("Enero", "Feberero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre")

Ruta = "c:\Remoto\"
ruta_anno = Ruta & DatePart("yyyy", Date)
ruta_mes = ruta_anno & "\" & meses(DatePart("m", Date))

MsgBox Ruta
If Dir(Ruta) = "" Then MkDir Ruta
MsgBox ruta_anno
If Dir(ruta_anno) = "" Then MkDir ruta_anno
MsgBox ruta_mes
If Dir(ruta_mes) = "" Then MkDir ruta_mes
End Sub






Saludos,
KL


"Rantamplan" wrote in message
news:

Buenas foro,
tengo en una hoja un boton con un codigo asociado que se supone al pulsar
sobre el boton comprueba si existe un directorio llamado 2005 y si no
existe lo crea. Si existe, comprueba que dentro de el exista otro
subdirectorio con el mes actual y si no existe, tambien lo crea.
El caso es que no me funciona, me falla en el momento de crear el
directorio correspondiente al año (Error 76, no se ha encontrado la ruta
de acceso). El caso es que este mismo codigo lo tengo funcionando en un
excel97 y funciona, pero en un excel 2003 no soy capaz de hacerlo andar!.
¿Alguna sugerencia? ;-)

Private Sub CommandButton2_Click()
Dim anno_actual, mes_actual, ruta_mes, ruta_anno
Dim meses As Variant
Dim i As Integer, j As Integer

meses = Array("Enero", "Feberero", "Marzo", "Abril", "Mayo", "Junio",
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")


'Devuelve un entero del 1 al 12 asociado al mes actual
'1 - Enero ... 12 - Diciembre
mes_actual = DatePart("m", Date)
anno_actual = DatePart("yyyy", Date)

For i = 2005 To 2010
If i = anno_actual Then
MsgBox anno_actual
ruta_anno = "c:\Remoto\" + CStr(i)
MsgBox ruta_anno
If Dir(ruta_anno) = "" Then
MkDir ruta_anno
'End If
'Para los 12 meses del año
For j = 0 To 11
If j = mes_actual - 1 Then
MsgBox mes_actual
ruta_mes = ruta_anno + "\" + meses(j)
MsgBox ruta_mes
If Dir(ruta_mes) = "" Then
MkDir ruta_mes
End If
End If
Next j
End If
End If
Next i
End Sub


Gracias!
Salu2.
"los videojuegos no tienen ninguna influencia sobre los niños.
Quiero decir, si el Pac-Man hubiese influenciado a nuestra generación,
estaríamos todos corriendo en salas oscuras, masticando píldoras
mágicas y escuchando músicas electrónicas repetitivas".
Kristian Wilson, Nintendo Inc., 1989

Hola Rantamplan,

A ver, vayamos por partes.


1) Lo que falla es esto:
ruta_anno = "c:\Remoto\" + CStr(i)
Esto es porque estas intentando crear 2 niveles a la vez. En el otro
PC donde te funciona lo mas probable es que ya existiera la carpeta
c:\Remoto con anterioridad. Y de paso la funcion CStr es redundante y
no aporta valor (vaya! tambien es redundante la segunda parte de esta
frase)

2) No entiendo la finalidad de los bucles
For i 05 To 2010... Next i
y
For j=0 To 11... Next j
Si no has omitido nada en el codigo expuesto se puede prescindir
perfectamente de los bucles.

ruta_anno = Ruta & DatePart("yyyy", Date)
ruta_mes = ruta_anno & "\" & meses(DatePart("m", Date))

Prueba esto:

Private Sub CommandButton2_Click()
Dim anno_actual, mes_actual, ruta_mes, ruta_anno
Dim meses As Variant
Dim i As Integer, j As Integer

meses = Array("Enero", "Feberero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre")

Ruta = "c:\Remoto\"
ruta_anno = Ruta & DatePart("yyyy", Date)
ruta_mes = ruta_anno & "\" & meses(DatePart("m", Date))

MsgBox Ruta
If Dir(Ruta) = "" Then MkDir Ruta
MsgBox ruta_anno
If Dir(ruta_anno) = "" Then MkDir ruta_anno
MsgBox ruta_mes
If Dir(ruta_mes) = "" Then MkDir ruta_mes
End Sub






Saludos,
KL

...existe una solucion muy guapa para crear multiples neveles de
carpetas ofrecida por Dana Delouis aqui http://tinyurl.com/74sx9
pero funciona a partir del Office 2000 (por la funcion Split)

Saludos,
KL