xrun1
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
CreateObject("SAPI.SpVoice").Speak"Архивация профиля Firefox. Начинаем"
' VBS-скрипт для создания архивных копий
' при помощи встроенного zip-архиватора Windows (Сжатая ZIP-папка)
' взят отсюда http://www.strizhkov.ru/wp-content/uploads/2010/07/zip.zip
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
dim WshShell1
set WshShell1 = WScript.CreateObject("WScript.Shell")
dtNow = Now()
FNA = Right("00" & CStr(Day(dtNow)), 2) & "-" & Right("00" & CStr(Month(dtNow)), 2) & "-" & Year(dtNow) & "_" & Right("00" & CStr(Hour(dtNow)), 2) & "-" & Right("00" & CStr(Minute(dtNow)), 2)
MySource = WshShell1.ExpandEnvironmentStrings("%APPDATA%") + "\Mozilla\Firefox\Profiles\rinte028.default"
MyTarget = "d:\Настройки\Backup\Mozilla Firefox " + 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
set WshShell1 = Nothing
|
Всего записей: 720 | Зарегистр. 26-12-2009 | Отправлено: 00:32 14-04-2021 | Исправлено: xrun1, 00:33 14-04-2021 |
|
