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: 20/Abril/2024 a las 14:34
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. |
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
|