>LcDBC='data1.dbc' > >Do DataPathControl >Do Start >********************************************************************************************************************** >Procedure DataPathControl >********************************************************************************************************************** >Local lnYol, lcYol > >Use pathcont IN 0 >If !PathControl() > Do ProgEnd > Quit > Return >Endif >lnYol = Rat("\", Alltrim(pathcont.datadir)) >lcYol = Alltrim(pathcont.datadir) + "," + Left(Alltrim(pathcont.datadir), lnYol - 1) > >lnPrmYol = Rat("\", Alltrim(pathcont.paramdir)) >lcPrmYol = Alltrim(pathcont.paramdir) + "," + Left(Alltrim(pathcont.paramdir), lnYol - 1) > >Set Path To (lcYol) + ";" + (lcPrmYol) >Return > >***********************************************************************************************Procedure PathControl >***********************************************************************************************Local llDon, lcYol >llDon = .T. >If File(Justpath(Sys(16,1)) + "\" + LcDBC) > Replace datadir With Justpath(Sys(16,1)) In pathcont >Endif >lcYol=Alltrim(pathcont.datadir) >If !File(lcYol+ "\" + LcDBC) > Messagebox("DATA Folder or PARAMETERS Folder Not Selected!",16,"Error !") > Do Form Form\SelectFolder > lcYol = Alltrim(pathcont.datadir) > If !File(lcYol+ "\" + LcDBC) > llDon = .F. > Endif >Endif >Return llDon >************************************************ >