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