Zugriff auf vba Überprüfen, ob die Datei existiert

Question

Ich habe eine Datenbank in FrontEnd und BackEnd aufgeteilt.

Ich habe es läuft: i) in meinem Büro ii) Aktualisieren/Testen in meinem PC.

Meine BackEnd-Datei wird je nach laufendem Computer in einem anderen Verzeichnispfad ausgeführt.

Ich möchte einen Code platzieren und prüfen, ob die Datei existiert.

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() 

Ich habe dies bis jetzt.

Irgendwelche Hilfe.

Danke ...

Answer 1

eine kleine Funktion erstellen, wenn eine Datei und es besteht zu prüfen, rufen Sie, wenn nötig.

Public Function FileExists(ByVal path_ As String) As Boolean 
    FileExists = (Len(Dir(path_)) > 0) 
End Function 

Da sich die Backend-Datenbankpfade nicht ändern, warum deklarieren Sie nicht zwei Konstanten und überprüfen einfach deren Wert?

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