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. |