разархивация файла

[illyuziy]

что не так? нужно разархивировать файл создав временную папку с файлами, затем выбрать нужный и сним уже работать

vibf=''
IF EMPTY (vibf)=.F. then
*используется для отладки программ
*SET STEP ON
*Arj не работает с русскими буквами, поэтому нахожу короткое имя файла и записываю его в С:\temp
L=""
k=0
endif ;
DO WHILE L # "\" ;
k = k+1 ;
promf=RIGHT(vibf,k) ;
L=LEFT(promf,1) ;
ENDDO ;
promf=RIGHT(vibf,k-1) ;
rabf="C:\Temp\"+(promf) ;
COPY FILE (vibf) TO (rabf) ;
*SET STEP ON
*разархивирую в папку темп
RUN f='Run arj e -y '+rabf+' C:\temp\' ;
& RUN f ;
RUN f='Run rar e -y '+rabf+' C:\temp\' ;
& RUN f ;

*открываю справочник sptf для чтения без изменений

SELECT 0
DO CASE ;
CASE UPPER(RIGHT(rabf,3))='REE' ;
DO CPZERO.prg WITH "C:\Temp\a.dbf", 866 ;
use C:\Temp\a.dbf

select * ;
from a ;
where id = 2;

[Serge_Bliznykov]

во-первых, почему Вы решили, что программа на FoxPro (да ещё и FPD - т.е. for DOS) имеет отношение к разделу SQL ?!

во-вторых, почему код не оформлен?

ну и в-третьих, не смотрел и не проверял, но, имхо, использование слова RUN в ключевой строке перед архиватором - ошибочно излишне..
и зачем точки с запятой в конце задания имени?!
т.е. я бы для начала попробовал так:

f='arj.exe e -y '+rabf+' C:\temp\' 
RUN &f 
f='rar.exe e -y '+rabf+' C:\temp\' 
RUN &f

я уже не говорю про наличие архиваторов по пути....

[illyuziy]

Прошу прощения за размещение темы не в том разделе форума. Если возможно перенести, прошу перенести. если нет, то закройте эту и укажите куда идти)))))