Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Comprobar la existencia de una carpeta

22/03/2007 - 21:10 por José A. Castrejón | Informe spam
Ayuda Hacer una pregunta
Hola buenas tardes a todos :
Actualmente utilizo la siguiente rutina para guardar la copia de un archivo

Sub Emite ()

Ruta = ActiveWorkbook.Path
RutaCopias = Ruta & "\Copias\"
.
ejecucion del programa

ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (RutaCopias & NoFac)
ActiveWorkbook.Close


AHora tengo una pregunta ¿Hay alguna manera de saber si la carpeta "copias"
que es donde guardo los documentos existe ? ¿y si no existe como la creo ?
EN resumen quiero comprobar la existencia de la carpeta y si no existe
hacerla para despues guardar el archivo


Saludos
Jose A. Castrejón
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Esteban Dido
22/03/2007 - 21:30 | Informe spam
Hola Jose

If Dir(RutaCopias, vbDirectory) = "" Then MkDir RutaCopias

Saludos
Esteban

"José A. Castrejón" escribió en el
mensaje news:
Hola buenas tardes a todos :
Actualmente utilizo la siguiente rutina para guardar la copia de un


archivo

Sub Emite ()

Ruta = ActiveWorkbook.Path
RutaCopias = Ruta & "\Copias\"
.
ejecucion del programa

ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (RutaCopias & NoFac)
ActiveWorkbook.Close


AHora tengo una pregunta ¿Hay alguna manera de saber si la carpeta


"copias"
que es donde guardo los documentos existe ? ¿y si no existe como la creo ?
EN resumen quiero comprobar la existencia de la carpeta y si no existe
hacerla para despues guardar el archivo


Saludos
Jose A. Castrejón

Preguntas similares

 

Busqueda sugerida :