SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Buckman en Lunes 23 de Diciembre de 2002, 23:04

Título: Re: ¿Como comprobar si esxiste archivo?
Publicado por: Buckman en Lunes 23 de Diciembre de 2002, 23:04

Hola, estoy intentando hacer una aplicacion que va a necesitar un archivo de texto para funcionar. Lo que no me acuerdo es de como se hacia para que al cargar el form compruebe si el archivo existe y si no es asi que lo cree.
¿Me podeis echa un cable?
Gracias

Título: ¿Como comprobar si esxiste archivo?
Publicado por: Jose Arriagada en Martes 24 de Diciembre de 2002, 02:00

Utiliza la siguiente funcion

Sub Function Existe_Archivo(byval FileName as String) as boolean
on error goto Control_Error
nError=0
open FileName for input as #1
if nError=0 then
   close(1)
   Existe_Archivo=True
else
  Existe_Archivo=False
endif
Exit sub

Control_Error:
nError=err.number
Resumen Next
End Function