Mensaje enviado por Soporte <Soporte@SULLAIR.com.ar>

Te mando esto que ya mando uno de los chicos de la lista, espero que te sirva!!!!


Esta es la solución que yo uso, prácticamente copiado de un ejemplo de la MSDN:

Public Function ExisteDirectorio(ruta As String, directorio As String) As Boolean
' Devuelve True si existe el directorio en la ruta
' especificada y False si no
ExisteDirectorio = False
Dim fic As String
ruta = ruta & "\"
fic = Dir(ruta, vbDirectory)
Do While fic <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If fic <> "." And fic <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(ruta & fic) And vbDirectory) = vbDirectory And _
(UCase(fic) = UCase(directorio)) Then
ExisteDirectorio = True
Exit Do
End If ' solamente si representa el directorio especificado.
End If
fic = Dir ' Obtiene siguiente entrada.
Loop
End Function

Gabriel A. Carreras
Sullair Argentina - Area de Sistemas
Goncalvez Diaz 1145 Barracas
Te: 303-0621 int 434
Te cel.: 154-141-8110