11/09/2008, 08:28
|
 | | | 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 |