Do addpath With 'libs' > Do addpath With 'frx' > Do addpath With 'forms' > Do addpath With 'tools' > Do addpath With 'stuff' >... > >Proc addpath > Lparam cPath > Try > cPath=FullPath(Addbs(cPath)) > > If Directory(cPath) > If Atc(cPath+',', Set('path')+',')=0 > cPath=Set('path')+','+cPath > Set Path To (cPath) > Endif > Endif > Catch To oEx > Assert .F. Message oEx.Message > Endtry >