Como compruebo existencia de un archivo ?

[Zion_Tm]

Bueno, quiero comprobar si existe un archivo.exe dentro de la ruta C:\archivo.exe

seria asi .. .

Código:

If "C:\server.exe" Then
    Timer1.Enabled = False
    Else
     Timer1.Enabled = True
     End If

Pero me da error :S . .. . es para un downloader que estoy haciendo.

[MaN!FesT]

Agrega un command y pon el siguiente código:

Código:

Private Sub Command1_Click()
Dim carajo As String
carajo = Dir("C:\manifest.txt")
If Not carajo = "" Then MsgBox "Sita" Else MsgBox "nota"

End Sub

Espero y te ayude

S4lu2

[Ther0x]

otro método:

Código:

on error goto noexiste
open "c:\archivo.txt" for input as #1
close #1
msgbox "el archivo existe"
noexiste:
msgbox "el archivo no existe"

[tragantras]

y no era algo asi como?

Código:

dim archivo as string
archivo = "C:\loquesea.exe"
if len(archivo) = 0 then
    msgbox "No ta"
else if
    msgbox "Si ta"
end if

M suena k sea algo asi, pero yo soy nuevo asi k no mucho caso xD

[Ther0x]

y no era algo asi como?

Código:

dim archivo as string
archivo = "C:\loquesea.exe"
if len(archivo) = 0 then
    msgbox "No ta"
else if
    msgbox "Si ta"
end if

M suena k sea algo asi, pero yo soy nuevo asi k no mucho caso xD

esa es otra forma de comprobar si existe. hay muchas más, solo es cuestión de imagináción...

[Zion_Tm]

Muchas gracias muchachos, buenas opciones.
Estoy haciendo un downloader que compruebe si esta tal archivo en la unidad C y si no esta que lo descargue. Ovbiamente hay que subir nuestro propio virus a un servidor web, de esta forma si en algun momento el usuario llega a detectar el virus y eliminarlo, el downloader lo vuelve a descargar y ejecutar.

A ver que sale . ..  Gracias