Validar existencias de archivos en una carpeta

[flashtkd]

Como puedo verificar archivos, dentro de una carpeta, si existe el archivo de nombre x, que la aplicacion muestr con checkbox seleccionado.

si el archivo no existe, que no marque el checkbox

como lo puedo hacer ? se que se hace con un condicionar, pero como hago para que reconozca a los archivos si existen o no existe.

Saludos

[David]

Aquí hay un ejemplo para verificar la existencia de un archivo.

EDITO: No me había dado cuenta que se me olvidó dejar el enlace :
http://www.forosdelweb.com/760489-post6.html

[franko1809]

Tio puedes probar de esta manera aunque es un poco rustico, aunque tendrias que aplicarle un Else en caso el archivo no exista para que desmarque el check

Código:

Private Sub Command1_Click()
If Verificar_Existe(App.path & "\archivos\1.txt") = True Then Check1.Value = 1
If Verificar_Existe(App.path & "\archivos\2.txt") = True Then Check2.Value = 1
If Verificar_Existe(App.path & "\archivos\3.txt") = True Then Check3.Value = 1
End Sub

Private Function Verificar_Existe(path) As Boolean
If Len(Trim$(Dir$(path))) Then
    Verificar_Existe = True
Else
    Verificar_Existe = False
End If
End Function

[seba123neo]

Hola, aunque si vas a hacer eso es mejor un listbox...porque podes tener a cantidad de archivos que quieras...

saludos.