Скрипт для архивации данных

@Inviz777 · Регистрация: 13.03.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста. Имеется данный скрипт, он работает отлично, но можно ли как-то в него добавить выборку по маскам, чтобы он не все архивировал, а только определенные типы. Либо просто добавить исключение.

Visual Basic

'================= Комментировать блок если вариант с аргументами =============|
InputFolder = "C:\web\test1\" ' Какую папку архивировать ==========================|
OutputFolder = "C:\web\" ' Путь куда архивировать ===========================|
ZipFile = OutputFolder & Date & "_test.zip" ' Как назвать ====================|
Life = "-10" ' Срок жизни фойлов в папке архивирования =======================|
'==============================================================================|
 
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
    objShell.NameSpace(ZipFile).CopyHere(source)
 
Do Until objShell.NameSpace(ZipFile).Items.Count = objShell.NameSpace(InputFolder).Items.Count
   WScript.Sleep 500 ' Arbitrary polling delay
Loop 
 
'Удаление в папке всех файлов старше Life дней. 
Set FSO = CreateObject("Scripting.FileSystemObject")
'Выставляем количество дней, старше которых будет производится удаление файлов. 
OldDate = DateAdd("d", Life , date) 
'Указываем директорию в которой удаляем старые файлы.
Set Folder = FSO.GetFolder(OutputFolder)
Set FC = Folder.Files
For Each F1 in FC 
    If F1.DateLastModified < OldDate Then 
        F1.Delete
End If
Next

@buggydancer · 14.03.2015, 11:54

вроде в #4-м посте этого треда: Поиск в папке и подсчет файлов, Dmitrii говорил, что метод Filter объекта FolderItems умеет фильтровать файлы, попробуйте - может оно вам подойдет

@Inviz777 · 16.03.2015, 11:02 **[ТС]**

Попробовал как написано в том посте, ничего не получилось. Что я только не подставлял. Он не выдает ошибки, а просто игнорирует фильтрацию

@buggydancer · 17.03.2015, 14:59

А вам именно архивация штатными средствами виндовс нужна?
Может винрар - вроде он сильно навороченный, подойдет?

@Inviz777 · 24.03.2015, 02:16 **[ТС]**

Можно и winrar, просто мне надо чтобы функции были как в этом скрипте.

@Dmitrii · 25.03.2015, 20:01

Сообщение от Inviz777

... Попробовал как написано в том посте, ничего не получилось...

Видимо, не так пробовали. Пример соответствующего фрагмента:

Visual Basic

Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
source.Filter 64 + 128, "*.html"
For Each objFile In source
    objShell.NameSpace(ZipFile).CopyHere objFile.Path
Next
Do Until objShell.NameSpace(ZipFile).Items.Count = source.Count
   WScript.Sleep 500 ' Arbitrary polling delay
Loop

@Inviz777 · 26.03.2015, 08:11 **[ТС]**

Ооо, блин видимо и вправду не так делал.
Спасибо огромное Dmitrii

Добавлено через 4 минуты
я вместо source.Filter писал InputFolder.Filter

Еще раз спасибо

@buggydancer 251 / 239 / 16 Регистрация: 31.12.2009 Сообщений: 324
	14.03.2015, 11:54	2
	вроде в #4-м посте этого треда: Поиск в папке и подсчет файлов, Dmitrii говорил, что метод Filter объекта FolderItems умеет фильтровать файлы, попробуйте - может оно вам подойдет 1

@Inviz777 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 4
	16.03.2015, 11:02 [ТС]	3
	Попробовал как написано в том посте, ничего не получилось. Что я только не подставлял. Он не выдает ошибки, а просто игнорирует фильтрацию 0

@buggydancer 251 / 239 / 16 Регистрация: 31.12.2009 Сообщений: 324
	17.03.2015, 14:59	4
	А вам именно архивация штатными средствами виндовс нужна? Может винрар - вроде он сильно навороченный, подойдет? 0

@Inviz777 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 4
	24.03.2015, 02:16 [ТС]	5
	Можно и winrar, просто мне надо чтобы функции были как в этом скрипте. 0

@Inviz777 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 4
	26.03.2015, 08:11 [ТС]	7
	Ооо, блин видимо и вправду не так делал. Спасибо огромное Dmitrii Добавлено через 4 минуты я вместо source.Filter писал InputFolder.Filter Еще раз спасибо 0

Скрипт для архивации данных

Решение