1 (изменено: xakerpaul, 2014-10-10 08:29:08)

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

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

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

2 (изменено: Rom5, 2014-10-10 11:56:30)

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

xakerpaul пишет:

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

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

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

  • получить путь тек.каталога

  • запросить список файлов каталога

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

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

WBR. Roman

3

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

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