Buscar achivo desde Acces

[MEGAMAQUI]

Hola amigos mi pregunta es la siguiente:
Estoy interesado en saber como puedo hacer que mi archivo de base de datos en Acces cuando sea ejecutado lo primero que haga sea buscar en segundo plano un archivo "XXX.XXX" y si no existe que salga del programa o simplemente diga no autorizado.

Muchas gracias

[Taribo007]

Si conoces la ruta completa del archivo, pùedes hacer:

dim ruta as string

ruta="C:\carpeta\xxx.xxx"

if len(dir(ruta))>0 then
msgbox "El archivo no existe en la ubicacion especificada"
else
msgbox "Si existe"
end if

En cada opcion dle if, puedes hacer loq ue prefieras, o forzar la salida (docmd.quit), o sacar un mensaje, o lo que estimes oportuno.

Un saludo

[Taribo007]

Bueno, eso es lo que he enetendido que necesitas, pero si quieres buscar un archivo dentro de una carpeta, puedes usare sta funcion:

Public Function BuscaArchivo(nomCarpeta As String, NomArchivo As String) As String
Dim ObjetoFSO As Object
Dim Carpeta As Object
Dim SubCarpeta As Object
Dim Archivos As Object
Dim Archivo As Object
Dim Encontrado As String

Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ObjetoFSO.GetFolder(nomCarpeta)
Set Archivos = Carpeta.Files
For Each Archivo In Archivos
'Buscamos en los archivos de la carpeta
If Archivo.Name = NomArchivo Then
BuscaArchivo = nomCarpeta & "\" & Archivo.Name
Exit Function
End If
Next
Set Archivos = Nothing
' Buscamos en las carpetas y subcarpeta haciendo
'llamadas recursivas a la funcion
For Each SubCarpeta In Carpeta.SubFolders
Encontrado = BuscaArchivo(nomCarpeta & "\" & SubCarpeta.Name, NomArchivo)
If Nz(Encontrado, "") <> "" Then
BuscaArchivo = Encontrado
Exit Function
End If
Next
Set Carpeta = Nothing
Set ObjetoFSO = Nothing

End Function

Un saludo

[MEGAMAQUI]

Muchismas gracias amigos lo pondré a la practica y veré los resultados, ya os comentaré al respecto.

Insisto Muchismas Gracias.