Const W_API_MODULE = "nnotes"
Declare Sub subwOSGetExecutableDirectory Lib W_API_MODULE Alias "OSGetExecutableDirectory" _
(Byval v_strRetPathName As String)
Sub Click(Source As Button)
Dim strFullDir As String
strFullDir = String$(127,0)
Call subwOSGetExecutableDirectory(strFullDir)
For i = 1 To Len(strfulldir)
If Mid(strfulldir , i , 1 ) = "\" Then ptr = i
Next
Msgbox (Left(strfulldir, ptr - 1 ))
End Sub
Quelle (http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/84c5729bccbfd13c85256f3200521d05?OpenDocument&Highlight=0,program,directory)