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

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

null@example.com (xakerpaul) — Fri, 10 Oct 2014 13:21:15 +0000

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

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

null@example.com (Rom5) — Fri, 10 Oct 2014 07:46:02 +0000

xakerpaul пишет:

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

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

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

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

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

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

null@example.com (xakerpaul) — Fri, 10 Oct 2014 04:28:29 +0000

Здравствуйте. Есть такая задача. Написать скрипт 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"

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