Visual Basic - Cómo veo si existe archivo en A:\

Life is soft - evento anual de software empresarial
 
Vista:

Cómo veo si existe archivo en A:\

Publicado por Horacio (42 intervenciones) el 18/08/2001 20:32:18
Hola:
Estoy haciendo una aplicación donde diariamente resguardo archivos en diskkete que se forman con la Date del día. ejemplo 08082001.zip,09082001.zip , etc. en diskette.
Para restaurar tengo una ventana donde en una caja de texto hay que ingresar la fecha del archivo a restaurar desde A:\,
Cómo hago para que el programa lea si el archivo con la fecha que ingresé en la caja de texto existe en el diskette que coloqué en la diskettera. Hay que tener en cuenta que en un mismo diskette hay varios archivos que se guardan diariamente.
Desde yá, muchas gracias y hasta la próxima.
Saludos
Horacio
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:Cómo veo si existe archivo en A:\

Publicado por edu (423 intervenciones) el 19/08/2001 06:56:50
USa la funcion GetAttr, esta funcion te retorna los atributos del archivo yo se que eso no te importa, pero si no lo encuentra genera un error, capturas el error Y LISTO!. Si genera error es por que el arhciv ono existe y tu haras el codigo pertinente. Tambien puedes usar el objeto FileSystemObject el cual si mas no recuerdo tiene una funcion pero verificar si existe un archivo.
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:Cómo veo si existe archivo en A:\

Publicado por jan (34 intervenciones) el 20/08/2001 09:15:50
Puedes utilizar la función Dir

archivo = Dir("A:\WIN.INI")
devuelve WIN.INI si existe
archivo= Dir("A:\*.INI")
devuelve el primer archivo ini que encuentra
si no encuentra nada devuelve ""
archivo= Dir("A:\", vvbDirectory)
devuelve el primer directorio
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:Cómo veo si existe archivo en A:\

Publicado por Felmolpa (59 intervenciones) el 20/08/2001 16:45:34
Facil compañero:

Dim Objeto As Object
Set Objeto = CreateObject("Scripting.FileSystemObject")
If (Objeto.fileexists("A:\08082001.zip")) Then
msgbox "YA EXISTE"
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