Function AppPath() As String
  Dim sPath As String
 
  sPath = Windows.Forms.Application.ExecutablePath
  sPath = Left$(sPath, InStrRev(sPath, "\"))
 
  AppPath = sPath
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de