39 lines
823 B
Plaintext
39 lines
823 B
Plaintext
|
|
||
|
|
On Error Resume Next
|
||
|
|
|
||
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set shell = CreateObject("Wscript.Shell")
|
||
|
|
|
||
|
|
Sub UnZIP(zipfilename, destinationfolder)
|
||
|
|
With CreateObject("Shell.Application")
|
||
|
|
.NameSpace(destinationfolder).Copyhere .NameSpace(zipfilename).Items
|
||
|
|
End With
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
zipfile = WScript.Arguments(0)
|
||
|
|
If Err.Number <> 0 Then
|
||
|
|
WSCript.Quit 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
outdir = WScript.Arguments(1)
|
||
|
|
If Err.Number <> 0 Then
|
||
|
|
WSCript.Quit 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
WScript.Echo zipfile
|
||
|
|
WScript.Echo outdir
|
||
|
|
|
||
|
|
If fso.FolderExists(fso.GetAbsolutePathName(outdir)) Then
|
||
|
|
fso.DeleteFolder fso.GetAbsolutePathName(outdir)
|
||
|
|
End If
|
||
|
|
|
||
|
|
fso.CreateFolder fso.GetAbsolutePathName(outdir)
|
||
|
|
If Err.Number <> 0 Then
|
||
|
|
WSCript.Quit 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
UnZIP fso.GetAbsolutePathName(zipfile), fso.GetAbsolutePathName(outdir)
|
||
|
|
If Err.Number <> 0 Then
|
||
|
|
WSCript.Quit 1
|
||
|
|
End If
|