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 ************************************************