Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Архивирование папки в папке %temp%

Ответить
Настройки темы
VBA - Архивирование папки в папке %temp%

Пользователь


Сообщения: 59
Благодарности: 1

Профиль | Отправить PM | Цитировать

Изменения
Автор: Dark_Timur
Дата: 03-07-2012
В общем, надо заархивировать папку. У меня получилось:

Код: Выделить весь код
Option Explicit
Dim Tmp As String
Dim Zip As New Shell
Dim ZipFile As String
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim WhatToZip As String
Tmp = Environ("temp") ' Делаем Tmp равной местонахождению папки %temp%
ZipFile = Tmp + "\Dir.ZIP"
WhatToZip = Tmp + "\dir\"
Set ts = fso.OpenTextFile(Path & "\Dir.ZIP", ForWriting, True) ' Создается файл
ts.Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)  ' Этот файл превращается в ZIP
ts.Close ' Закрывается этот файл
Set Zip = CreateObject("Shell.Application")
Zip.NameSpace(ZipFile).CopyHere Zip.NameSpace(WhatToZip) ' И в этот ZIP файл архивируется папка
Выдается ошибка:

Код: Выделить весь код
run-time error 91
Помогите пожалуйста, уже много чего перепробЫвал, всё равно ошибка. Прошу мне не предлагать использование WinRARa в консоли. Заранее спасибо.

Отправлено: 00:43, 03-07-2012

 

Аватара для ferget

Разный


Сообщения: 1294
Благодарности: 359

Профиль | Отправить PM | Цитировать

а ели так

Код: Выделить весь код
Zip.NameSpace((ZipFile)).CopyHere Zip.NameSpace((WhatToZip))

Отправлено: 02:19, 03-07-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Пользователь


Сообщения: 59
Благодарности: 1

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
Zip.NameSpace((ZipFile)).CopyHere Zip.NameSpace((WhatToZip))
Спасибо, но получилась новая ошибка

Код: Выделить весь код
run-time error '-2147024894' (80070002) automation error
Уже прогресс. Спасибо за помощь. Сейчас буду разбираться с ошибкой.

Отправлено: 10:03, 03-07-2012 | #3


Пользователь


Сообщения: 59
Благодарности: 1

Профиль | Отправить PM | Цитировать

Судя по всему проблема в том, что папка для архивирования и сам архив находятся в директории %temp%. По мере возможности прошу: подскажите мне, как организовать архивирование папки в директории %temp%. Заранее спасибо.

Последний раз редактировалось Dark_Timur, 03-07-2012 в 21:56.

Отправлено: 13:42, 03-07-2012 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Архивирование папки в папке %temp%

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Архивирование stolyar Скриптовые языки администрирования Windows 8 28-03-2010 13:33
CMD/BAT - [решено] Архивирование в ARJ Sarus Скриптовые языки администрирования Windows 2 29-12-2009 00:02
архивирование графики WChek Программное обеспечение Windows 10 23-06-2006 12:32
Архивирование по сети Dimon Microsoft Windows NT/2000/2003 8 04-06-2003 19:03
Архивирование Maniacosaur Программирование и базы данных 6 27-08-2002 21:34


« Предыдущая тема | Следующая тема »


 
Переход