Detectar existencia de archivo

[nahueld]

Hola, les cuento que estuve intentando hacer algo pero no me salee y me pone loco, esta haciendo que por ejemplo con un timer cada X minutos determine un archivo dentro de una carpeta: Por ej: dentro de la carpeta "PEPITO" que detecte si esta el archivo "PATITA.IND".
El ejecutable esta en el mismo directorio donde esta la carpeta 

[seba123neo]

Hola, con un timer queda bastante feo, proba con api's , yo hice algo parecido es un widget que detecta si hubo cambios en una carpeta determinada y te avisa pero sin timers....y si no me equivoco Cobein tambien posteo una clase para hacer lo mismo pero hasta con posibilidad de generar un log de los cambios...

saludos.

[nahueld]

Bueno, voy a Haber si encuentro el Post 

[seba123neo]

no lo vas a encontrar porque fue en otro foro jeje..pero te contaba nomas...pero el modulo que digo pediselo a Cobein si pasa por aca...

[nahueld]

mira encontre esto en google

If Dir("RutaArchivo") <> "" Then
MsgBox "El archivo si existe"
Else
MsgBox "El archivo no existe"
End If

yo lo modifique asì

Private Sub Timer1_Timer()
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then
MsgBox ("El archivo existe")
Else
MsgBox ("El archivo no existe")
End If
End Sub

y me tira un runtime '13 creo, sabes porque serà?

[cassiani]

If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then

Concatenaste mal!

[krackwar]

No es mas facil con :

Código [Seleccionar] Expandir

FileExist

[nahueld]

el problema es que tiene que leer el directorio donde se encuentra el .EXE , se entiende?

[s E t H]

If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then

Concatenaste mal!

y ademas no leyó tu post xD

Private Sub Timer1_Timer()
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then
MsgBox ("El archivo existe")
Else
MsgBox ("El archivo no existe")
End If
End Sub

Private Sub Timer1_Timer()
If Dir$(App.Path & "\INIT\cabezas.ind") <> "" Then
MsgBox ("El archivo existe")
Else
MsgBox ("El archivo no existe")
End If
End Sub

es asi xq app.path no es un string que pones cuando programas, si no que se define en ejecucion

[nahueld]

gracias a los que respondieron, logre hacerlo andar en si me dieron la respuesta ustedes ya hecha.

gracias nuevamente