www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
cCurPath = CurDrive() + ":\" + CurDir()
Code: Select all
// where .exe started from is default directory //
cFILE := GetModuleFileName( GetInstance() )
nSTART := RAT( "\", cFILE )
cDEFA := SUBSTR(cFILE,1,nSTART-1)
SET DEFA to ( cDEFA )
Something like:Antonio Linares wrote:How to retrieve the current path when it is a network one ?
Code: Select all
IF CurDrive() = "\"
cCurPath = CurDir()
ELSE
cCurPath = CurDrive() + ":\" + CurDir()
ENDIFBetter fix TMail.Rick 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
Code: Select all
// where .exe started from is default directory // cFILE := GetModuleFileName( GetInstance() ) nSTART := RAT( "\", cFILE ) cDEFA := SUBSTR(cFILE,1,nSTART-1) SET DEFA to ( cDEFA )
Code: Select all
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 nil
Code: Select all
METHOD 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 nil