Visual Basic - Verificar si existe un archivo

Life is soft - evento anual de software empresarial
 
Vista:

Verificar si existe un archivo

Publicado por wend (1 intervención) el 08/04/2008 15:26:13
Saludos.

En este foro encontré un código para leer los datos de un archivo de texto que me ayuda bastante en lo que necesito:

Dim Server1, Server2 As String
Dim Base1, Base2 As String
Close
Open "conexion.txt" For Input As #1
Line Input #1, Server1
Line Input #1, Base1
Line Input #1, Server2
Line Input #1, Base2
Close

Ahora, antes de leerlo quisiera sabe si existe el archivo, ¿Cómo puede hacerlo?

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
Imágen de perfil de elier Lora B

RE:Verificar si existe un archivo

Publicado por elier Lora B (8 intervenciones) el 08/04/2008 16:11:33
Fichero="d:conexion.txt"

If Dir(Fichero) = "" Then
'Aqui Actúo

else
'Aqui no

End If
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
Imágen de perfil de elier Lora B

RE:Verificar si existe un archivo

Publicado por elier Lora B (8 intervenciones) el 08/04/2008 16:12:52
Fichero="d:conexion.txt"

If Dir(Fichero) = "" Then
'Aqui Actúo para el caso que no Está

else
'Aqui Actúo para el caso que Está

End If
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 si existe un archivo

Publicado por Nestor (94 intervenciones) el 08/04/2008 19:15:15
Puedes utilizar el comando FileExist(ruta de la archivo+nombre).
En la ayuda aparece un ejemplo.
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