Rubrik: Access | VB-Versionen: VBA | 19.01.05 |
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: | Views: 29.890 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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