2 вопроса
использую архивирование
WinRar.exe с помощью
Declare Integer ShellExecute In SHELL32
1)Как загнать в массив инфоомацию
о файлах, которые лежат в архиве rar в массив,
чтоб потом показать в листбоксе.
никак не могу найти в хелпе рара
как это сделать???

2) перед архивацией создаю массив
файлов, необходимых для архивации
надо архивировать "пофайлово"
tcOutputFile="Myrar.rar"
for i=1 to alen(Myadir,1)
lcArgument = " a -m3 -ep1 -r -- " + tcOutputFile + " " + Myadir[1,i]
thisform.rar1._myRun("WinRAR.exe",lcArgument) && архивация (или дублирование)
цикл не ждет пока архиватор
заархивирует первый файл из массива в архив
и пытается по новой открыть tcOutputFile
для архивации второго файла.
На что и получаем ошибку архиватора. что он не может открыть
tcOutputFile
как это побороть
МАски файлов, архивирование дирректории не предлагать

Данке щен

Спасибо за помощь Дмитрий,
но ясности .NULL. :-)))
>rar lb archive.rar > archive.txt
Вот убейте не пойму
Не вижу в хелпе рара таких ключей и команд
можно поподробнее
Я вобщето сам искал пытался прежде чем спросить
doevents не помогает
Это про второй вопрос

Да е мое нет у меня таких команд в хелпе рара
3.11 версия
посмотрел более свежий хелп-разберусь,
Но тока там чего не написано что в файл
rar LT archive.rar > archive.txt
Ладно поразбираемся
А вот по вттрому вопросу неужели нет ничего изящнее
чем FindWindow
Это ведь опять процесс запускать
время лишнее.......

хе хе
смотрите
1)
tcFileName1=GETFILE()
lcArgument = " -v -- " + tcFileName1
thisform.rar1._myRun("WinRAR.exe",lcArgument)
Рар выводит свое окно просмотра
Нам это нафиг не надо
2)
tcFileName1=GETFILE()
lcArgument = " -v -- " + tcFileName1+" > eee.txt "
thisform.rar1._myRun("WinRAR.exe",lcArgument)
Вариант с любым синтаксисом не прокатывает!!!!!

Да насчет ключа и команды тут я конечно бездарно облажался
Может у меня рар дурной, или руки из...
попробуйте выполнить из командной строки
меню пуск такую команду
winrar.exe v c:\test.rar
winrar.exe vt c:\test.rar
У меня пишет неизвестная команда "V"
архив c:\test.rar конечно есть

Тоже самое
из фокса
tcFileName1=GETFILE()
lcArgument = "v" + tcFileName1 + " > eee.lst "
MESSAGEBOX(lcArgument)
thisform.rar1._myRun("WinRAR.exe",lcArgument)

На команду L или l
тоже говорит
"Неизвестная команда "L" "
Странно, а ведь на
tcFileName1=GETFILE()
lcArgument = " -v -- " + tcFileName1+" > eee.txt "
thisform.rar1._myRun("WinRAR.exe",lcArgument)
рар мне показывает содержимое архива,
и не создает "многотомный архив"
Нифигушеньки не понимаю

И кстати про завершение приложения
странно но почему то такой код не работает,
хотя по идее все должно быть нормально
ишет что не может получить доступ к файлу-архиву
DECLARE INTeger FindWindow IN Win32API string, string
thisform.rar1.xdir('c:\base\dbfs\ ','*.*') && массив ADIR
tcOutputFile='4444.rar'
FOR i=1 TO ALEN(thisform.rar1.axdir,1)
lcArgument = " a -m3 -ep1-- " + tcOutputFile + " " +FULLPATH(thisform.rar1.axdir[i,1])
thisform.rar1._myRun("WinRAR.exe",lcArgument) && архивация (или дублирование)
Do While findwindow(Null,'WinRAR')=0
LOOP
ENDDO
IF i=ALEN(thisform.rar1.axdir,1)
EXIT
ENDIF
ENDFOR

Библиотеку TOLLS.DLL цеплять не хочется

спасибо за помощь,
все правильн,
винрар не знает эти ключи
Эти ключи знает консоль rar.exe
вариант с текстовым файлом-списком файлов для архивации проходит

Ни как не могу перенаправить вывод
файлов в архиве в текстовый файл,
"C:\Program Files\RAR\Rar.exe" vt test >bambam.lst
в сеансе DOS такая команда работает на ура,
и никакими winExec, shell32, tolls32.dll и прочими апишными
"запускателями файлов" не могу перенаправить вывод в файл
Чем можете помочь

Спасибо Игорь за помощь
Но в 98 виндовсе не работает
и сохраняется
winExec, shell32, tolls32.dll и прочими апишными
"запускателями файлов" не могу перенаправить вывод в файл
уж оступиться чтоли.....