Error 13 No coinciden los tipos

[william_085]

hola amigos, tengo esta rutina para crear carpetas pero me marca error.

Set fs = CreateObject("Scripting.FileSystemObject")
If Dir("C:\windows\pollo feliz\pv traslados\pedidos\", vbDirectory) = "" Then


Set f = fs.CreateFolder("C:\windows\pollo feliz\pv traslados\pedidos\") '* aqui me marca e l error
Else
End If



lo raro es que lo tengo en otro programa y en el otro no me marca error y en este si, x q sera.



gracias

[seba123neo]

Hola,yo lo pruebo y no tira error...

saludos.

[David]

Yo tampoco le veo el error.

P.S.: Puedes probar usando MkDir en vez de FileSystemObject.

[Jhonnyf]

quitale el "\" y prueba de nuevo U_U

[seba123neo]

no influye la barra al final ....

[Txoco]

Hola!

¿Existe la ruta "C:\windows\pollo feliz\pv traslados\"? Si ese directorio no existe, no te dejará crear ninguno debajo, porque las funciones de creación de directorios no son recursivas.

Puedes atajarlo con algo así (debería funcionar, la he escrito aquí directamente u^^):

Código:

Public Sub CreaRuta(ByVal NPath as String)
Dim Direc() As String
Dim i As Long
Dim TempPath As String
Dim fs As Object
Dim f as Object

    Set fs = CreateObject("Scripting.FileSystemObject")

    Direc = Split(NPath, "\")

    TempPath = Direc(0) & "\"
    For i = 1 to Ubound(Direc)
        TempPath = TempPath & Direc(i) & "\"
        If Dir(TempPath, vbDirectory) = "" Then
            Set f = fs.CreateFolder(TempPath)
        End If
    Next i

    Erase Direc
End Sub

Esta función lo que hace es descomponer primero en un array todos los directorios por separado, y luego va concatenando las rutas para asegurarse de que todas las carpetas existen antes de crear una nueva.

En el caso que necesitas, primero intenta crear "C:\windows\"; como ya existe, intenta crear "C:\windows\pollo feliz\"; si ya existe no hace nada, pero si no, la crea, luego lo intenta con "C:\windows\pollo feliz\pv traslados\" y así ad infinitum... o hasta que se le acabe la ruta que le has dicho

[ba-ka]

quitale el "\" y prueba de nuevo porq el programa no funciona va querer crear carpetas.

[Kruzado]

no es un problema que cree o no la carpeta, el problema es que la variable f no es comptible con lo que quieres asignarle, quizas ienes algun option explicit en alguna parte de tu codigo, lo que obliga a declarar todas las variables antes de utilizarlas, sino, antes de utilizar f declarala como folder (dim f as folder), pruebas y nos avisas

[Txoco]

Si no ha puesto la directiva Option Explicit, VB crea automáticamente todas las variables que necesita y que no se declaran explícitamente, con el tipo Variant. Yo la he declarado As Object porque yo sí trabajo con Option Explicit activado y por hábito, no voy a poner otra excusa porque no la tengo . Por utilizar una expresión de programación orientada a objetos (aunque no sea lo más apropiado) digamos que Folder es una clase heredadada de Object.

He corregido la función porque había dos puntos en los que tenía que acceder a la matriz y apuntaba a otras variables, pero ahora ya funciona, la he testeado. En cualquier caso, si no se va a hacer nada con las propiedades de la carpeta recién creada, se puede (se debe) omitir esa variable y llamar a CreateFolder con Call.

E insisto, CreateFolder sólo puede crear una carpeta por llamada, por lo que si se le pide que cree más, dará el error. Para que pueda crear "C:\windows\pollo feliz\pv traslados\pedidos\", primero tiene que existir "C:\windows\pollo feliz\pv traslados\". La barra final no es significativa, e incluso según las circunstancias, recomendable para distinguir implícitamente directorios de ficheros. En este caso da igual porque la función sólo trabaja con carpetas.