[Gisender]

Если прямо-таки всё у вас "определенное", то можете описать всё более подробно? 1) Название zip-файла 2) Путь к папке в zip-файле 3) Путь к тому самому файлу, который нужно заменить 4) Путь к файлу, которым будем заменять И тогда я смогу Вам помочь. »

1) jetpack.zip
2) Путь: в главной директории архива лежит папка с названием resources в ней лежит папка с названием firefox,а в ней лежит папка с названием data и уже в этой папке лежит файл с названием data.js который нужно заменить
3)Файл котором будем заменять это такой же data.js по пути %appdata%/data.js

[iccup.platoon@vk]

Код:

Set ShellApp      = CreateObject("Shell.Application")
Set objFSO        = CreateObject("Scripting.FileSystemObject")
Const OverwriteExisting = True
Set objDestFolder = ShellApp.NameSpace("F:\SANDBOX\work")           ' куда распаковать
Set objSrcFolder  = ShellApp.NameSpace("F:\SANDBOX\jetpack.zip")    ' что распаковать
objDestFolder.CopyHere objSrcFolder.Items                           ' распаковка архива
sSourceFolder  = "F:\SANDBOX\work"                                  ' путь, где лежит ТОЛЬКО одна лишь распакованная папка
sTargetZIPFile = "F:\SANDBOX\jetpack.zip"                           ' имя будущего архива
sFile          = "F:\SANDBOX\data.js"                               ' файлик, которым будем заменять
sPath          = "F:\SANDBOX\work\resources\firefox\data\"          ' Путь для копирования файлика
objFSO.DeleteFile("F:\SANDBOX\work\resources\firefox\data\data.js") ' Удаляем старый
objFSO.CopyFile sFile , sPath, OverwriteExisting                    ' Копируем новый
' Здесь упаковывается новый архив, работает на магии '
Dim oShellApp, oFSO, iErr, sErrSource, sErrDescription
Set oShellApp = CreateObject("Shell.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Right(sSourceFolder,1) <> "\" Then sSourceFolder = sSourceFolder & "\"
On Error Resume Next 
If oFSO.FileExists(sTargetZIPFile) Then oFSO.DeleteFile sTargetZIPFile,True 
iErr = Err.Number
On Error Resume Next
oFSO.OpenTextFile(sTargetZIPFile, 2, True).Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
iErr = Err.Number
On Error Resume Next 
oShellApp.NameSpace(sTargetZIPFile).CopyHere oShellApp.NameSpace(sSourceFolder).Items
iErr = Err.Number
Do Until oShellApp.NameSpace(sTargetZIPFile).Items.Count = oShellApp.NameSpace(sSourceFolder).Items.Count
WScript.Sleep 500
Loop
' Конец магической упаковки '

Мне самому страшно Редактируете под себя и сохраняете этот код в файл SkriptName.vbs
Iska, не бей за такой код