Information générale
Catégorie:
Codage, syntaxe et commandes
You should make a prg as main and include the following code
public ExePath && Executable Path
PUBLIC datapath && works database folders
PUBLIC formspath
* Set Default directory to Projects Directory
* If run from Visual Foxpro 6.0
IF !FILE('mainform.scx')
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
ExePath=(SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
else
ExePath=sys(5)+sys(2003)
ENDIF
DataPath=exepath+"\data"
FormsPath=exepath+"\forms"
SET DEFAULT TO (ExePath)
do form formspath+"\mainform"
read events
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement