Crear carpeta en escritorio

[oruiz]

Estimados foristas,

Deseo crear una carpeta en el escritorio pero el procedimiento me arroja error 76. En caso que me deseen ayudar, la programación está así:

Sub EnvíoGlosas()
Dim camino As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! oruiz.
Es natural que encuentres un error puesto que ChDir cambia la carpeta actual a una ya existente. Como dices que la carpeta será nueva, entonces...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mjrofra]

Hola,

por favor, cambia chdir por mkdir.

también podrías probar con algo como:

Sub EnvíoGlosas()

    MkDir Environ("USERPROFILE") & _
          "\Desktop\Glosas Auditoría "...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Pues nada, On Error Resume Next antes del MkDir y On Error GOTO 0 después y listo.

 

[mjrofra]

Hola Antoni,

me alegra poder saludarte.

no plantee ninguna opción para el control de errores porque no sabemos qué quiere hacer oruiz en caso de que ya se haya creado la carpeta. Yo creo que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola Mauricio:

Básicamente era solo por "meter la cuchara", como decís por ahí.

También es un placer saludarte.