Hi Again Boris,
i've and using below codes at my start_prep.prg its "set main" file in my project. it first controls the lokal pathcont.dbf then works what is situation. as your method when i delete or rename that data03 and data folder (data folder has a some free tables) from client PC its automatically runs SelectFolder form and continioue with which is selected and saved path via set path ... but i've never tried with subfolders that's way i asked this question if its still solve my need i am on the right way :)

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