Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Sweatcs
72 / 0 / 0
Регистрация: 19.06.2014
Сообщений: 68
1

Архивация группы файлов путем WinRar

13.08.2015, 14:33. Просмотров 540. Ответов 1
Метки нет (Все метки)

Доброго времени суток.
Есть макрос, который работает, но почему-то не делает архив, бьюсь уже битый час, никак не получается, подскажите в чем проблема?
В двух словах о работе макроса: есть база, из которой тянутся определенные данные в шаблон файла Word, затем если наименование клиента повторяется все эти файлы должна кидать в один архив, далее переходим к следующей строке и так, пока файл не закончится.

именно этот кусок кода интересует:
Кликните здесь для просмотра всего текста
If i = UBound(arrClient) Or arrClient(i) <> arrClient(i + 1) Then
'flName = arrINN(i) & "_" & arrAcc(i) & "_" & Format(j, "00#") & "_q" & Format(Now, "ddmmyyyy")
flName = arrClient(i) & " " & Format(j, "00#")
wsh.Run "C:\Progra~1\WinRAR\WinRar.exe A -ep " & outDir & "\" & flName & " " & flNames, 0, True
j = j + 1
flNames = ""
End If
On Error GoTo 0
0
Вложения
Тип файла: docx templ_191.docx (16.0 Кб, 2 просмотров)
Тип файла: rar нарушения ст 19.rar (27.5 Кб, 3 просмотров)
Тип файла: xls нарушения1.xls (34.0 Кб, 2 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.08.2015, 14:33
Ответы с готовыми решениями:

Архивация папки ч/з WinRar
Привет! Есть следующий код. Не могу разобраться, нужно заархивировать папку, после архивации...

Архивация указанного файла в одноимённый архив с использованием WinRar
Здравствуйте! Помогите, пожалуйста. Необходимо создать bat файл, выполняющий архивирование...

Разбитие файлов в WinRAR
Уже много раз замечаю, что файлы которые выкладывают на файлообменники разбиты на части вида...

Последовательное сжатие файлов c WinRar API
Подскажите как воплотить такую идею: на ПК есть большое количество файлов, кино, музыка, игры… все...

Архивация файлов
Всем привет, сделал архивацию диска (Д), на другой диск. Размер файлов на диске (д)-50ГБ,а сам...

1
Казанский
14901 / 6305 / 1718
Регистрация: 24.09.2011
Сообщений: 9,977
14.08.2015, 01:23 2
Sweatcs, если имена папок и файлов содержат пробел(ы), их надо брать в кавычки. Если не содержат, кавычки не мешают. Изменил 2 строки, первую и последнюю из этого куска
Visual Basic
1
2
3
4
5
6
7
8
    flNames = flNames & """" & flFullName & """ " '<<< добавил кавычки тут
    docWord.Close
    On Error Resume Next
    If i = UBound(arrClient) Or arrClient(i) <> arrClient(i + 1) Then
        'flName = arrINN(i) & "_" & arrAcc(i) & "_" & Format(j, "00#") & "_q" & Format(Now, "ddmmyyyy")
        flName = arrClient(i) & " " & Format(j, "00#")
 
        wsh.Run "C:\Progra~1\WinRAR\WinRar.exe A -ep " & """" & outDir & "\" & flName & """ " & flNames, 0, True '<<< добавил кавычки тут
Добавлено через 12 минут
Кстати, если использовать команду ...WinRar.exe M -ep ..., то файлы перемещаются в архив, и в папке остаются только RARы (M - Move, A - Add).
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.08.2015, 01:23

Архивация файлов
Доброго времени суток, столкнулся с незнанием, как реализовать -&gt; в папке находятся файлы с...

Архивация файлов
Есть скрипт, который берёт файлы с папки и архивирует в другую папку: Add-Type -assembly...

Архивация файлов
Люди, HELP! Комп предложил архивацию файлов. Архив - 3 Гб. Свободного места - 46 Гб. Он орёт,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru