cCurPath = CurDrive() + ":\" + CurDir()How to retrieve the current path when it is a network one ? 
// where .exe started from is default directory //
cFILE := GetModuleFileName( GetInstance() )
nSTART := RAT( "\", cFILE )
cDEFA := SUBSTR(cFILE,1,nSTART-1)
SET DEFA to ( cDEFA )Antonio Linares wrote:How to retrieve the current path when it is a network one ?
IF CurDrive() = "\"
cCurPath = CurDir()
ELSE
cCurPath = CurDrive() + ":\" + CurDir()
ENDIFRick Lipkin wrote:Enrico
This code is not especially elegant .. and it assumes the .exe is located in the drive or unc you wish to resolve.
Rick Lipkin
// where .exe started from is default directory // cFILE := GetModuleFileName( GetInstance() ) nSTART := RAT( "\", cFILE ) cDEFA := SUBSTR(cFILE,1,nSTART-1) SET DEFA to ( cDEFA )
METHOD Activate() CLASS TMail
local cCurPath
if ::nRetCode != -1
IF CurDrive() = "\"
cCurPath = CurDir()
ELSE
cCurPath = CurDrive() + ":\" + CurDir()
ENDIF
::nRetCode = MAPISendMail( ::cSubject, ::cNoteText, ::cMsgType,;
DToS( ::dDate ) + " " + ::cTime,;
::cConversationID, ::lReceipt, ::lFromUser,;
::aOrigin, ::aRecipients, ::aFiles )
lChDir( cCurPath )
else
MsgStop( "Error initializing mail" )
endif
return nilMETHOD Activate() CLASS TMail
local cCurPath
// ::nRetCode = MAPILogOn()
if ::nRetCode != -1
if CurDrive() = "\"
cCurPath = "\" + CurDir()
else
cCurPath = CurDrive() + ":\" + CurDir()
endif
::nRetCode = MAPISendMail( ::cSubject, ::cNoteText, ::cMsgType,;
DToS( ::dDate ) + " " + ::cTime,;
::cConversationID, ::lReceipt, ::lFromUser,;
::aOrigin, ::aRecipients, ::aFiles )
lChDir( cCurPath )
else
MsgStop( "Error initializing mail" )
endif
return nilmany thanks