Saber si un archivo existe o no

[viejolucho]

Hola a todos nesecito ayuda:
El problema es que nesecito un codigo fuente para saber si un archivo "como por ejemplo una foto" existe en determinada carpeta por favor ayudenme estoy en problemas.

de antemano saludos y muchas gracias

[FaiF (A¥åHøRå)]

Determinar si un fichero existe o no:

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

Código [Seleccionar] Expandir

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

Fuente: elhacker.net

Salu2

[elmaro]

puedes utilizar esta funcion

Código [Seleccionar] Expandir


Private Function Existe(ByVal file As String) As Boolean
On Local Error Resume Next
Existe = Len(Dir$(file))
End Function


i para ver si existe un archivo pones asi:

Código [Seleccionar] Expandir


if existe("c:\archivo.bmp") then ' si el archivo existe...
lo que sea
end if

o puedes poner asi:

Código [Seleccionar] Expandir


if not existe("c:\archivo.bmp") then ' si el archivo no existe...
lo que sea
end if


espero te sirva
saludos




El MaRo!

[Robokop]

Otro metodo :

Código [Seleccionar] Expandir

If Dir("C:\Documents and Settings\LOL\texto.txt") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If


[ジ]

Publicado por: Robokop
Insertar Cita
Otro metodo :
Código:
If Dir("C:\Documents and Settings\LOL\texto.txt") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If

SI, ese mismo codigo lo puse hace dias, de mi gusano x cierto.

Si, hasta en los msgbox pone lo mismo 

[Robokop]

SI, ese mismo codigo lo puse hace dias, de mi gusano x cierto.

Acaso sera porque yo te ayude con tu gusano por messenger ???
LOL
Hasta yo te dije como ponerle  el webdownloader ....
Pd : para evitar reclamos una captura de pantalla dice mas que mil palabras
http://img411.imageshack.us/img411/5112/capturajj3.jpg
entre mis archivos de codigos pequeños que tengo guardados miremos la fecha del mio y la fecha de tu codigo y fijate cual fue primero , ese lo hice hace 1 año pero formate por eso esta en julio 
no me molesta que usen los codigos para eso los doy pero me calienta que vengan a decirme ese codigo es mio.. ja

[ジ]

si,cierto lol, con una api,  esta : Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long     'api necesaria para el descargar algo de internet


y ese codigo que pusiste tú ni me ayudaste ni nada, asi que no inbentes y sino demuestralo  

[ジ]

Hasta yo te dije como ponerle  el webdownloader ....





si un codigo de kizar que esta en el foro y en google como unas 3000000 veces , andale sigue diciendo boberias que para todas sabes que tengo la respuesta

[WarGhost]

chacho los códigos no son de nadie lo que si que pueden tener un by son funciones, módulos etc... pero códigos vb¿? desde cuando

que mal rollo....

[ジ]

que si que si man que es tuyo, lo que tu digas si eres feliz es tuyo