VBA - Saber si el valor de un campo es una ruta correcta

[Laufwerk]

Hola!
Creo que con el titulo del post tan largo queda claro, no?

Necesito saber si en una celda que cargo una ruta mediante Application.GetOpenFilename es una ruta válida.

Parece una chorrada por que siempre será verdadero, pero como la celda se puede editar, y se puede escribir cualquier cosa, incluso el boton cancelar de el GetOpenFilename me devuelve en la celda FALSE, así que tampoco es tan tonto que quiera verificar si la ruta es válida.

Después de mas rollo, gracias por adelantado.

Tanto me da como la ruta sea valida como si me coje el nombre del fichero y me dice que si que existe.

Os pongo el valor de una celda

C:\Users\user0002\Desktop\Nueva Carpeta\Libro1.xls

A ver que podemos hacer.


Gracias de nuevo!!!!

[David]

Puedes usar Dir y On Error Resume Next de modo que devuelva True cuando la ruta es válida:

Código vb:

Function ValidarRuta(Ruta As String) As Boolean
On Error Resume Next
ValidarRuta = (Dir(Ruta) <> "")
End Function
 

[Laufwerk]

gracias ahora lo pruebo!!!

[Laufwerk]

perfecto, funciona de maravillas!!!

Hay alguna manera de saber si el archivo existe?

Gracias de nuevo!!!!

[David]

Ese código ya lo hace, valida si es una ruta válida y a la vez, solo devuelve True cuando el archivo existe .

[Laufwerk]

perfecto!!!

[Laufwerk]

perdonad, estoy aqui de nuevo.
en el caso que la celda valga "" me devuelve tambié true.

¿Cómo lo solucionamos?


Gracias!!!!

[David]

Solo agrega una condicional para saber si está vacía:

Código vb:

Function ValidarRuta(Ruta As String) As Boolean
On Error Resume Next
ValidarRuta = (Dir(Ruta) <> "" And Ruta <> "")
End Function
 

[Laufwerk]

bueno, no sé si será la mejor forma, pero he añadido esto a la función de David el Grande

Código:

Function ValidarRuta(Ruta As String) As Boolean
    On Error Resume Next
    If Ruta = "" Then
        ValidarRuta = False
        Else
            ValidarRuta = (Dir(Ruta) <> "")
    End If
End Function

[David]

Las dos formas hacen lo mismo, aunque yo lo puse resumido .

Saludos .

[Laufwerk]

pues no me funcionaba,....

[David]

Yo lo probé y me funcionó perfectamente :

Código vb:

Function ValidarRuta(Ruta As String) As Boolean
On Error Resume Next
ValidarRuta = (Dir(Ruta) <> "" And Ruta <> "")
End Function