Серый форум — VBS: Скрипт работающий с zip файлами и папками

Re: VBS: Скрипт работающий с zip файлами и папками

2013-01-19T07:54:15Z

zipscript пишет:

Задача следующая:
- Cделать скрипт который бы автоматически создавал архив файлов и копировал их в удаленную папку.
Входные данные:
- LOBAID
- Путь к папки для помещения в архив.
Выходные данные:
- \\Russia.local\01\FTP\vcc\Outbox\[LOBAID]\[LOBAID].ZIP
- Получать срс код архива выше и вставлять его в \\Russia.local\01\FTP\vcc\Outbox\[LOBAID]\CRC.TXT

Однажды я искал способ добавлять в архив и извлекать из архива файл, используя только скрипт. Сейчас откопал на своём компьютере какой-то скрипт, но не знаю как им пользоваться, и работает ли он вообще:

Option Explicit

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim MySource, MyTarget, MyZipName, MyHex, MyBinary, i
Dim oShell, oApp, oFolder, oCTF, oFile
Dim oFileSys

Dim dtNow
Dim FNA

dtNow = Now()
FNA = Year(dtNow) & Right("00" & CStr(Month(dtNow)), 2) & Right("00" & CStr(Day(dtNow)), 2)

MySource = "d:\test"
MyTarget = "d:\" + FNA + ".zip"

MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

For i = 0 To UBound(MyHex)
MyBinary = MyBinary & Chr(MyHex(i))
Next

Set oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")


Set oCTF = oFileSys.CreateTextFile(MyTarget, True)
oCTF.Write MyBinary
oCTF.Close
Set oCTF = Nothing

Set oApp = CreateObject("Shell.Application")

Set oFolder = oApp.NameSpace(MySource)
If Not oFolder Is Nothing Then
oApp.NameSpace(MyTarget).CopyHere oFolder.Items
End If

wScript.Sleep(5000)


Set oFile = Nothing
On Error Resume Next
Do While (oFile Is Nothing)

Set oFile = oFileSys.OpenTextFile(MyTarget, ForAppending, False)
If Err.number <> 0 then
Err.Clear
wScript.Sleep 3000
End If
Loop

Set oFile=Nothing
Set oFileSys=Nothing

Re: VBS: Скрипт работающий с zip файлами и папками

2010-10-28T10:51:05Z

ну я не знаю как проще объяснить, тогда просто можете дать наводку на: Cделать скрипт который бы автоматически создавал архив файлов и копировал их в удаленную папку.

Re: VBS: Скрипт работающий с zip файлами и папками

2010-10-28T10:26:18Z

Кто-нибудь что-нибудь понял? Я нет.

Re: VBS: Скрипт работающий с zip файлами и папками

2010-10-28T09:38:31Z

alexii сори что не дописал, да видимо CRC это, но я даже не могу догнать причём он там, Lobaid это уникальный id каждой программы в папке например \\Russia.local\01\FTP\vcc\Outbox\Opera 10.63 Lobaid:7568 или Opera 10.63 (7568)

Re: VBS: Скрипт работающий с zip файлами и папками

2010-10-28T08:12:05Z

zipscript, пишите так, чтобы Вас было понятно: «срс» — это «CRC»? У Вас есть установленный 7-zip або WinRAR? Что такое «LOBAID» и «лобайди»?

VBS: Скрипт работающий с zip файлами и папками

2010-10-28T07:07:08Z

Здравствуйте уважаемые форумчане, помогите пожалуйста, я скриптинге чайник, поставили вроде бы несложное тз:

Задача следующая:
- Cделать скрипт который бы автоматически создавал архив файлов и копировал их в удаленную папку.

Входные данные:
- LOBAID
- Путь к папки для помещения в архив.

Выходные данные:
- \\Russia.local\01\FTP\vcc\Outbox\[LOBAID]\[LOBAID].ZIP
- Получать срс код архива выше и вставлять его в \\Russia.local\01\FTP\vcc\Outbox\[LOBAID]\CRC.TXT

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