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)