App.Path für MS-Access (VBA) In VB vorhanden - unter MS-Access (VBA) keine Spur davon: App.Path zum Ermitteln des Ausführungsverzeichnisses des aktuellen Projekts
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  30.693
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 44 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Zum Emitteln des Ausführungsverzeichnisses des aktuellen Projekts verwendet man unter VB die App.Path - Eigenschaft. Proggt man hin und wieder auch unter MS-Access/VBA sucht man vergeblich nach dem App-Objekt mit seinen Eigenschaften

Mit der nachfolgender Funktion lässt sich ab sofort auch unter MS-Access das Ausführungsverzeichnis des aktuellen Projekts ermitteln:

' Alternative zu App.Path von VB für MS-Access
Public Function AppPath() As String
  Dim sPath As String
 
  ' Name und Pfad der aktuellen Datenbank
  sPath = CurrentDb.Name
 
  ' reine Pfadangabe extrahieren
  While Right$(sPath, 1) <> "\"
    sPath = Left$(sPath, Len(sPath) - 1)
  Wend
 
  ' Anwendungspfad zurückgeben
  AppPath = sPath
End Function