Visual Basic para Aplicaciones - saber si exite un directorio

Life is soft - evento anual de software empresarial
 
Vista:

saber si exite un directorio

Publicado por Antonio (3 intervenciones) el 15/02/2009 02:57:57
Hola a todos:

Tengo una macro desde la que deseo guardar el archivo con el que estoy trabajando, es decir, dentro de la macro tengo la instrucción:

ActiveWorkbook.SaveAs Filename:= _
"C:GLMi archivo.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

No tengo ningún problema si en C: existe un directorio de nombre GL, pero si no existe me manda un error. Antes de ejecutar el "ActiveWorkbook.SaveAs Filename:= ..." deseo saber si el directorio "GL" existe o no; si es no, deseo crearlo ... Con ésto último (crearlo) tampoco tengo problema ya que lo puedo crear con un:

MkDir "C:GL"

pero sí que tengo problema para averiguar si existe o no.

En fin, no he encontrado las instrucciones que se necesitan, alguien podría ayudarme por favor.

Gracias mil por anticipado

Antonio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:saber si exite un directorio

Publicado por JuanC (565 intervenciones) el 15/02/2009 11:35:09
Sub test()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:") Then
MsgBox "ok"
End If
Set fs = Nothing
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar