Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Krackwar ™ en 25 Febrero 2009, 03:14 am



Título: API para saber si un archivo existe.
Publicado por: Krackwar ™ en 25 Febrero 2009, 03:14 am
Eso , e estado media hora buscando y no e encontrado la API para saber si un archivo existe o no  :-(

¿Alguien la sabe ?

PD: No me sirven funciones que por error digan si existe o no .


Título: Re: API para saber si un archivo existe.
Publicado por: Novlucker en 25 Febrero 2009, 03:18 am
A ver que te parece esto  :P

Código:
http://www.freevbcode.com/ShowCode.asp?ID=345

Saludos


Título: Re: API para saber si un archivo existe.
Publicado por: WHK en 25 Febrero 2009, 03:19 am
Claro que se puede pero no es con apis sino con una función:
http://www.elhacker.net/trucosvisual.htm

Determinar si un fichero existe o no:

Escriba el siguiente código: (una de tanta maneras aparte de Dir$())

Código
  1. Private Sub Form_Load()
  2. On Error GoTo Fallo
  3. x = GetAttr("C:\Autoexec.bat")
  4. MsgBox "El fichero existe."
  5. Exit Sub
  6. Fallo:
  7. MsgBox "El fichero no existe."
  8. End Sub

Ahora esto lo puedes pasar a una función:

Código
  1. public function fileexists(archivo as string) as boolean
  2. On Error GoTo Fallo
  3. call GetAttr(archivo)
  4. fileexists = true
  5. Exit function
  6. Fallo:
  7.  fileexists = false
  8. Exit function

y te ahorras tener que dependizarte de librerias externas o apis de un sistema operativo que no sabes si será compatible como el vista.


Título: Re: API para saber si un archivo existe.
Publicado por: Krackwar ™ en 25 Febrero 2009, 03:23 am
Si la api existe , una vez la saque debuggeando no me acuerdo que , no no me sirve ninguna de esas funcionas , gracias de todas maneras.


Título: Re: API para saber si un archivo existe.
Publicado por: WHK en 25 Febrero 2009, 03:33 am
Citar
PathFileExists( csFile )
Será esa api?


Título: Re: API para saber si un archivo existe.
Publicado por: Krackwar ™ en 25 Febrero 2009, 03:34 am
Si justamente esa era muchas gracias  ;D