Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: {_The_Alwar_} en 18 Junio 2005, 14:01 pm



Título: Comprobar si existe un archivo
Publicado por: {_The_Alwar_} en 18 Junio 2005, 14:01 pm
¿Como puedo comprobar si existe un archivo?


Título: Re: Comprobar si existe un archivo
Publicado por: 5v5 en 18 Junio 2005, 15:56 pm
Espero te sirva esto,

Dir$("nobre del archivo")

este comando te permite comprobar si un archivo existe en determinada carpeta o en la que se encuentra por defaul tu .exe, en la parte donde dice "nombre archivo" puedes colocar la ruta completa...por ejemplo;

msgbox(dir$("c:\*.txt"))   ......aqui te manda el primer .txt que encuentre en la unidad c:..., si tu quieres que te aparescan todos los .txt, por ejemplo, haces un ciclo  y listo........

bueno espero te sirva y tambien espero no te haya revuelto..... si tienes dudas aqui estamos para echarle la mano a quien lo necesite...... y tambien para que nos echen la mano.......


Título: Re: Comprobar si existe un archivo
Publicado por: programatrix en 18 Junio 2005, 16:00 pm
Usa visual basic script:
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists("C:\autoexec.bat" ) ) Then
MsgBox "El archivo existe."
End If


Título: Re: Comprobar si existe un archivo
Publicado por: BenRu en 18 Junio 2005, 19:18 pm
Código:
Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr("C:\Autoexec.bat")
MsgBox "El fichero existe."
Exit Sub
Fallo:
MsgBox "El fichero no existe."
End Sub



Título: Re: Comprobar si existe un archivo
Publicado por: {_The_Alwar_} en 19 Junio 2005, 00:13 am
mmm me gusto el metodo de reydelmundo, el de dir$ ese, no lo entiendo o no me va.... de todas formas muchas gracias


Título: Re: Comprobar si existe un archivo
Publicado por: sch3m4 en 19 Junio 2005, 09:15 am
Puedes usar también FileLen()


Título: Re: Comprobar si existe un archivo
Publicado por: Slasher-K en 20 Junio 2005, 01:50 am
Las siguientes funciones nunca fallan y sirven una para saber si existe un archivo, y otra para saber si existe un directorio.

Código:
Function IsFile(ByVal Filename As String) As Boolean
  On Error Resume Next
  IsFile = (GetAttr(Filename) And Not vbDirectory)
End Function

Function IsDir(ByVal sDir As String) As Boolean
On Error Resume Next
If sDir = vbNullString Then Exit Function
IsDir = ((GetAttr(sDir) And vbDirectory) = vbDirectory)
End Function

Saludos.