Func Путь_Определить
Local Номер_Директории,Путь_Директорий
SYS16=SYS(16,1)
номер=1
Do WHILE .t.
Dimension позиция(номер)
If AT("\", SYS16,номер)<>0
позиция(номер)=AT("\", SYS16,номер)
Else
Exit
Endif
номер=номер+1
Enddo
If UPPER(RIGHT(SYS16, 3))='EXE'
Каталог = LEFT(SYS16, позиция(номер-1))
Else
Каталог = LEFT(SYS16, позиция(номер-2))
Endif
* Устанавливаем его по умолчанию
Set DEFAULT TO (Каталог)
* Выборка поддиректорий
=ADIR(Массив_Директорий, "", "D")
If ALEN(Массив_Директорий, 1) > 2
Путь_Директорий=''
For Номер_Директории = 3 TO ALEN(Массив_Директорий, 1)
Путь_Директорий=Массив_Директорий(Номер_Директории,1)+","+Путь_Директорий
* Чистка от временных файлов
Файл_Удалить('*.bak',Каталог+Массив_Директорий(Номер_Директории,1)+'\')
Файл_Удалить('*.tmp',Каталог+Массив_Директорий(Номер_Директории,1)+'\')
Endfor
Endif
* Установка путей
If TYPE("Путь_Директорий")=="C" AND NOT ISNULL(Путь_Директорий)
Set PATH TO (Путь_Директорий)
Endif
If ERROR()=0
Retu .t.
Else
Retu .f.
Endif
return