|
Título: Detectar existencia de archivo Publicado por: nahueld en 9 Septiembre 2008, 04:24 am 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 >:( Título: Re: Detectar existencia de archivo Publicado por: seba123neo en 9 Septiembre 2008, 04:33 am 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. Título: Re: Detectar existencia de archivo Publicado por: nahueld en 9 Septiembre 2008, 05:36 am Bueno, voy a Haber si encuentro el Post :-*
Título: Re: Detectar existencia de archivo Publicado por: seba123neo en 9 Septiembre 2008, 06:19 am 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...
Título: Re: Detectar existencia de archivo Publicado por: nahueld en 9 Septiembre 2008, 21:52 pm mira encontre esto en google
Citar If Dir("RutaArchivo") <> "" Then MsgBox "El archivo si existe" Else MsgBox "El archivo no existe" End If yo lo modifique asì Citar 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à? Título: Re: Detectar existencia de archivo Publicado por: cassiani en 9 Septiembre 2008, 21:57 pm Citar If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then Concatenaste mal! Título: Re: Detectar existencia de archivo Publicado por: krackwar en 9 Septiembre 2008, 22:41 pm No es mas facil con :
Código: FileExist Título: Re: Detectar existencia de archivo Publicado por: nahueld en 9 Septiembre 2008, 22:54 pm el problema es que tiene que leer el directorio donde se encuentra el .EXE , se entiende?
Título: Re: Detectar existencia de archivo Publicado por: s E t H en 9 Septiembre 2008, 23:22 pm Citar If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then Concatenaste mal! y ademas no leyó tu post xD Citar 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 Citar 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 Título: Re: Detectar existencia de archivo Publicado por: nahueld en 10 Septiembre 2008, 05:55 am gracias a los que respondieron, logre hacerlo andar :) en si me dieron la respuesta ustedes ya hecha.
gracias nuevamente |