Код:

nPathStart = AT(":",GETENV("ComSpec"))- 1
nLenOfPath = RAT("\", GETENV("ComSpec")) - (nPathStart)
ComPath=SUBSTR(GETENV("ComSpec"), nPathStart, nLenofPath)
SET DEFAULT to (ComPath)

run "rd/s/q a:\*.*" &&удаляем файл без вопросов
RUN "del/f a:\*.*"
RUN "rd/s/q a:" &&удаляем все каталоги диска без вопросов
RUN "mkdir a:\data" &&создаём нужный нам каталог

*RUN (progpath+"\pkzip.exe a:\test.zip "+progpath+"\foxuser.fpt" ;
) &&Упаковка файлов и сброс их на дискету

*SET DEFAULT TO progpath

Проблема: не отрабатывают команды RUN! В Help говорят достаточно настроить
тек каталог по переменной comspec, однако всё равно не работает! Пробовал разные варианты строк для RUN - без толку!

Точнее так: команды RUN отрабатывают при работе с exe-проектом на одном
ком-пе, однако проблема возникает при переносе приложения на другие ком-пы.

Заранее благодарю...

Максим, Казань

Большое спасибо! Подстановка
&str запускает pkzip.

Но осталась проблема запуска DOS-комманд типа rm, del итд.

Может кто поскажет в VFP существует ли какой-нибудь сносный способ работы с файловой системой кроме DELETE FILE и COPY FILE ?
(хочу дискетку подчистить -)))

Подскажите, плиз, почему при запросе типа:

SELECT TOP 1 Tpartners.partner_name,;
Tpartnerprofiles.partner_profile_name,;
Tpartnertypes.partner_type_name, V_gr_confirm_a.region_name,;
V_gr_confirm_a.point_name, V_gr_confirm_a.point_type_name,;
Tpartners.partner_street, Tpartners.partner_home,;
Tpartners.partner_phone, Tpartners.partner_fax,;
Tpartners.partner_email, Tpartners.partner_lead_firstname,;
Tpartners.partner_lead_surname, Tpartners.partner_lead_patronname,;
Tpartners.partner_exec_firstname, Tpartners.partner_exec_surname,;
Tpartners.partner_exec_patronname, Tpartners.id_partner;
FROM dbmain!v_gr_confirm V_gr_confirm_a INNER JOIN dbmain!tpartners;
INNER JOIN dbmain!tpartnerprofiles;
INNER JOIN dbmain!tpartnertypes ;
ON Tpartnertypes.id_partner_type = Tpartners.id_partner_type ;
ON Tpartners.id_partner_profile = Tpartnerprofiles.id_partner_profile ;
ON V_gr_confirm_a.id_point = Tpartners.id_point;
ORDER BY Tpartners.id_partner DESC

и любом другом запросе, где к одной таблице подвязываются 3 таблицы по разным полям первой таблицы - ошибка SQL Parse Error ... или Query Parse Error ... Причём в конструкторе запрос запускается и работает, а ошибка возникает при попытке сохранить его.

ПОДСКАЖИТЕ ЧЕГО-НИБУДЬ, а то замучался плодить подзапросы, с которыми зачастую возникает та же ошибка.

Версия Fox: VFP 07.00.0000.9262