' benötigte API-Deklaration
Private Declare Function GetModuleFileName Lib "kernel32" _
  Alias "GetModuleFileNameA" ( _
  ByVal hModule As Long, _
  ByVal lpFileName As String, _
  ByVal nSize As Long) As Long

Dim nResult As Long
Dim sFile As String
 
sFile = Space$(260)
nResult = GetModuleFileName(ByVal 0&, sFile, Len(sFile))
sFile = Left$(sFile, nResult)
 
MsgBox sFile

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de