Windows: VBS-скрипт для автоматической распаковки ZIP-архивов.

Большинство клиент-банков выгружают данные для импорта в 1С в текстовый файл. Но есть некоторые странные банки которые зачем-то запихивают этот файлик в ZIP архив. Бухгалтеру приходится дополнительно распаковывать архив перед загрузкой в 1с. Для оптимизации процесса ваш покорный слуга запили простенький скрипт, который мониторит конкретную папку, распаковывает все архивы попадающие туда и потом их удаляет.

Текст скрипта:


Set objShell = CreateObject("Shell.Application")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objPath = objFS.GetFolder("d:\doc\") 'Папка которую мониторим

Do
  UnzipFiles objPath
  WScript.Sleep 1000 'Интервал проверки в милисекундах
Loop

Sub UnzipFiles(objFolder)
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "zip", vbTextCompare) = 0 Then
        set FilesInZip=objShell.NameSpace(objItem.Path).items
        objShell.NameSpace(objFolder.Path).CopyHere(FilesInZip)
        objFS.DeleteFile objItem
        End If
    Next
End Sub


Скачать скрипт.

 

 
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 [0 Голоса (ов)]

Добавить комментарий