Pfad und Dateiname der Anwendung/DLL ermitteln Ermitteln des vollständigen Dateinamens der eigenen Anwendung/DLL per API-Funktion
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  2.624
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 7 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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!