Imprimir página | Cerrar ventana

Error al crear carpeta combinacion Access-Word

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85388
Fecha de impresión: 25/Septiembre/2020 a las 19:41


Tema: Error al crear carpeta combinacion Access-Word
Publicado por: Antonio Pedro
Asunto: Error al crear carpeta combinacion Access-Word
Fecha de publicación: 06/Julio/2020 a las 22:50
Hola y Saludos.

Tengo creado un botón que me crea una combinación de Access a Word, la instrucción que uso para ello es gracias a vuestras ayudas, es bastante larga, solo pongo el final de la misma, donde guardo el documento creado:

Carpeta = "C:\ATESTADOS COPIAS"

Subcarpeta = Forms!FConductor!Texto188

Subcarpeta1 = "Solicitud ingreso"

MkDir Carpeta & "\" & Subcarpeta & "\" & Subcarpeta1

docWord.SaveAs Carpeta & "\" & Subcarpeta & "\" & Subcarpeta1 & "\" & Forms!FConductor!Texto214

Me salta el error 76, no se ha encontrado la ruta, el codigo parece correcto, me podrían indicar como solucionar  el problema. Un saludo.

Un Saludo.



Respuestas:
Publicado por: xavi
Fecha de publicación: 07/Julio/2020 a las 09:19
Es posible que la carpeta "Subcarpeta" no exista. En principio, MkDir solo puede crear el primer nivel por lo que deberías realizar una validación de su existencia y, si procede, hacer un MkDir solo con carpeta+subcarpeta
Por otro lado también habrá que controlar que Texto188 no contenga caracteres prohibidos.

De todas formas, te paso una función que debería crear la ruta completa de una tacada:

Function CreateFullPath(strTargetFolder As String)
    Dim ws As Object
    Set ws = CreateObject("WScript.Shell")
    ws.Run "cmd /c mkdir """ & strTargetFolder & """"
End Function

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Antonio Pedro
Fecha de publicación: 08/Julio/2020 a las 14:17
Hola Xavi, gracias por tu respuesta, me ha servido de mucho. 
Se puede cerrar el hilo. 
Un Saludo



Imprimir página | Cerrar ventana