Programación General > Visual Basic 6.0 e inferiores

 Re: ¿Como comprobar si esxiste archivo?

(1/1)

Buckman:
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

Jose Arriagada:
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

Navegación

[0] Índice de Mensajes