Ver Mensaje Individual
  #18 (permalink)  
Antiguo 11/09/2008, 08:28
Avatar de Taribo007
Taribo007
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 7 meses
Puntos: 18
Respuesta: abrir carpetas

Puede ser que te pase si en lugar de pasarle a la funcion esto: 0400, le pasas esto 400 ??

Si es asi, prueba cambiando esta parte:

'Guardamos por separado los digitos en el array
For i = 1 To Len(NomCarpeta)
Digitos(i) = Mid(Format(NomCarpeta, "0000"), i, 1)
Next

(en rojo lo añadido)

un saludo