Accès vba Vérifier si le fichier existe

Question

J'ai une base de données divisée dans FrontEnd et BackEnd.

Je l'ai en cours d'exécution: i) dans mon bureau ii) mise à jour/test dans mon ordinateur personnel.

Mon fichier BackEnd s'exécute dans différents emplacements de dossier en fonction de l'ordinateur en cours d'exécution.

Je veux placer un code et vérifier si le fichier existe.

code:

Sub FileExists() 
Dim strPath As String '<== Office. 
Dim strApplicationFolder As String 
Dim strPathAdmin As String '<== Admin. 

strPath = "\\iMac\Temp\" 
strApplicationFolder = Application.CurrentProject.Path 
strPathAdmin = strApplicationFolder & "\Temp\" 

If Dir(strApplicationFolder & "SerialKey.txt") = "" Then 
'===> Admin User. 
    If Dir(strPathAdmin & "*.*") = "" Then 
     '===> Empty Folder. 
    Else 
     '===> Files on folder. 
    End If 
Else 
    '===> Office User. 
    If Dir(strPath & "*.*") = "" Then 
     '===> Empty Folder. 
    Else 
     '===> Files on folder. 
    End If 
End If 
End Sub() 

J'ai ce jusqu'à maintenant.

Toute aide.

Merci ...

Answer 1

Créer une petite fonction pour vérifier si un fichier existe et l'appeler en cas de besoin. Comme les chemins de la base de données backend ne changent pas, pourquoi ne pas déclarer deux constantes et simplement vérifier leur valeur?

Sub Exist() 

    Const workFolder As String = "C:\Work Folder\backend.accdb" 
    Const personalFolder As String = "D:\Personal Folder\backend.accdb" 

    If FileExists(workFolder) Then 
     'Work folder exists 
    End If 

    '.... 

    If FileExists(personalFolder) Then 
     'Personal folder exists 
    End If 
End Sub