[M.A.D.M.A.N.]

Рекурсивно желательно делать. ".." переход на уровень вверх "." переход в корень, надо просто исключать их из поиска.

Код:

  if SameStr(path, "..") then
    continue;

З.Ы. код приводи в читабельный вид, невозможно такое читать.