Hi, Hs

Assuming that your current default directory is PRG, try the following code:

lcOldDir = Sys(5)+Sys(2003)
CD..\Photo

For i=1 to ADir(laDirs,"","D")
   If not InList(laDirs(i,1),".","..")
   	  ? laDirs(i,1)
   EndIf 
Next 

Set Default To (lcOldDir)

HTH