Серый форум — VBS: архивирование с помощью программы ARJ

Re: VBS: архивирование с помощью программы ARJ

2014-10-10T13:21:15Z

Спасибо, очень помогло!

Re: VBS: архивирование с помощью программы ARJ

2014-10-10T07:46:02Z

xakerpaul пишет:

А вот сделать, чтобы архивировал бы одновременно во все архивы текущего каталога, не удается.

А что ж именно архивируете? В Вашем коде архивируемый файл/файлы явно не указано.

Если вопрос в архивации чего-то там Вам известного не в указанный архив, а в имеющиеся в текущем каталоге архивы, то Вам надо:

получить путь тек.каталога
запросить список файлов каталога
по каждому элементу списка файлов убедиться по имени файла, что это архив и выполнить команду архивации в него

На сайте есть примеры работы с файловой системой - файлы каталога: 6.2.15. Files

VBS: архивирование с помощью программы ARJ

2014-10-10T04:28:29Z

Здравствуйте. Есть такая задача. Написать скрипт VBS, который с помощью программы arj архивировал файлы в заданный архив, в случае если пользователь ввел имя архива в inputBox. В случае если пропустил, то архивировал бы файлы во все архивы .arj текущего каталога.
Первый пункт сделал, ввожу название файла, в него архивируются файлы:

Dim WshShell
Dim name
name=InputBox("Введите название архива: ",Script)
set WshShell=WScript.CreateObject("WScript.Shell")
if name<>"" then WshShell.Run "CMD /C E:\ARJ\ARJ.EXE a " & name & ".arj"

А вот сделать, чтобы архивировал бы одновременно во все архивы текущего каталога, не удается.
Спасибо.