Visual Basic - verificar ruta

Life is soft - evento anual de software empresarial
 
Vista:

verificar ruta

Publicado por kbur (2 intervenciones) el 21/08/2004 19:29:22
Hola, Me gustaria que alguien me dijese como puedo obtener un valor boolean sobre si existe una ruta en el pc, como por ejemplo saber si existe la direccion c:\\mis documentos\\.... en mi ordenador. Gracias
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

RE:verificar ruta

Publicado por miguel (1042 intervenciones) el 21/08/2004 20:08:29
Prueba con esto.
-*-*-Verfifcar un Directorio-*-*-
Private Sub cmdExisteDir_Click()
If Dir("C:\Miguel", vbDirectory + vbNormal) = "" Then
MsgBox "No Existe Directorio", vbInformation
BanExiste = False
Else
MsgBox "Si Existe Directorio", vbInformation
BanExiste = True
End If
End Sub
-*-*-Verfifcar un archivo-*-*-
Dim BanExiste As Boolean
Private Sub cmdExisteDir_Click()
If Dir("C:\miguel.doc", vbArchive + vbNormal) = "" Then
MsgBox "No Existe", vbInformation
BanExiste = False
Else
MsgBox "Si Existe", vbInformation
BanExiste = True
End If
End Sub
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

RE:verificar ruta

Publicado por ruri (583 intervenciones) el 23/08/2004 00:50:16
Este código funciona bien. Podés colocarlo en un módulo para reutilizarlo cada vez que lo necesites:

Public function EsUnDirectorio(Byval Ruta as String) as Boolean
EsUnDirectorio=( Dir(Ruta, vbDirectory Or vbNormal) <> "")
End Function

Saludos Ruri
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