Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 05.01.06 |
Pfad und Dateiname der Anwendung/DLL ermitteln Ermitteln des vollständigen Dateinamens der eigenen Anwendung/DLL per API-Funktion | ||
Autor: Dieter Otter | Bewertung: | Views: 15.505 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute möchten wir Ihnen zeigen, wie sich der vollständige Dateiname (Pfad+Datei) der eigenen Anwendung oder DLL mit Hilfe des Windows-API ermitteln lässt.
Fügen Sie hierzu nachfolgenden Code in ein Modul ein:
Option Explicit ' Benötigte API-Deklarationen Private Declare Function GetModuleHandle Lib "kernel32" _ Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String) As Long Private Declare Function GetModuleFileName Lib "kernel32" _ Alias "GetModuleFileNameA" ( _ ByVal hModule As Long, _ ByVal lpFileName As String, _ ByVal nSize As Long) As Long
' Pfad und Dateiname der laufenden Anwendung / DLL ermitteln Public Function AppFilename() As String Dim nHandle As Long Dim sPath As String sPath = Space$(256) nHandle = GetModuleHandle(vbNullString) GetModuleFileName nHandle, sPath, Len(sPath) If InStr(sPath, Chr$(0)) > 0 Then sPath = Left$(sPath, InStr(sPath, Chr$(0)) - 1) End If AppFilename = sPath End Function
Hinweis:
Wird die Anwendung / DLL innerhalb der VB-Entwicklungsumgebung ausgeführt, gibt die "AppFilename"-Funktion den Pfad zur Visual Basic EXE-Datei zurück!