\\FileServer\NewShopLink\ShopLink.exe
>Any ideas about how to get around this?Local lcSys16, lcProgram,lcDefaDir lcSys16 = SYS(16) *-- when running off an UNC, there's no colon in the path... *-- not sure what the path would actually be - check this: if ":"$lcSys16 lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1) else lcProgram = SUBSTR(lcSys16, AT("\\", lcSys16)) endif Cd (justpath(lcProgram)) If justext(lcProgram) = "FXP" Cd .. Endif *-- full path here, curdir() doesn't return the drive part lcDefaDir=fullpath(curdir()) set default to (lcDefaDir) do addpath with "BCDE" do addpath with "DATA" do addpath with "FORMS" do addpath with "GRAPHICS" do addpath with "LIBS" do addpath with "MENUS" do addpath with "PICTS" do addpath with "PROGS" do addpath with "QUERS" do addpath with "REPORTS" do addpath with "SCRNS" do addpath with "SYSTEM" Proc addpath Lparam cPath cPath=Fullpath(Addbs(cPath)) If Dire(cPath) If Atc(cPath+',', Set('path')+',')=0 cPath=Set('path')+','+cPath Set Path To (cPath) Endif Endif