Visual Basic - ver si existe un archivo

Life is soft - evento anual de software empresarial
 
Vista:

ver si existe un archivo

Publicado por Vane (23 intervenciones) el 23/02/2005 19:48:28
Quiero saber como puedo indicarle a un programa que se ejecute, si y solo si , existe un determinado archivo, no se como indicarle al programa que revise una carpeta y verifique si esta el archivo y que de existir le asigne a una variable el valor de TRUE.... muchas 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:ver si existe un archivo

Publicado por Christian (675 intervenciones) el 23/02/2005 19:52:04
Ese programa que dices... es del Visual??? o es un SP de SQL??
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:ver si existe un archivo

Publicado por Vane (23 intervenciones) el 23/02/2005 20:03:57
Es un programa en visual
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:ver si existe un archivo

Publicado por Christian (675 intervenciones) el 23/02/2005 20:17:48
Bueno.. has pensado como verificar si el archivo existe??, es decir de que manera el programa va saber a que ruta irse y a que carpeta para ver si el archivo existe??, he pensado esto:

Sub Ejecucion_Programa()
IF XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX then
'Aca averiguas si tu archivo existe o no
EXECUTE PROGRAMA
End if
End Sub

Especificame mejor tu pregunta y que cosa es lo que quieres Vane.
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:ver si existe un archivo

Publicado por Ernesy (2 intervenciones) el 23/02/2005 22:04:34
Si entendí la pregunta, lo que quieres es ver si un archivo está en un sitio específico, si es así:

Dim bExiste as Boolean 'Esta es la variable que dirá si existe
If Dir("C:/Archivo.txt") = "Archivo.txt" Then
'La función Dir pide la ruta del archivo y devuelve el nombre de éste
'si existe, de lo contrario devuelve una cadena vacía
bExiste = True 'Si existe el archivo la variable es Verdadera
Else
bExiste = False 'Si no, es falsa
End If
If bExiste = False Then End
'Si no se encontró el archivo termina el programa

Algo más fácil sería:
If Dir("C:/Archivo.txt") <> "Archivo.txt" Then End
'Si no encuentra el archivo se termina el programa

Espero que te sirva
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