Using VBScript to decompress all files in the directory (Zip)

Copy codeThe code is as follows:
On Error Resume Next
Dim objFSO,sourcepath,targetpath

Function GetZipFile(path)
Dim file,folder,sfolder,subfolder,files
If Not objFSO.FolderExists(path) Then
Msgbox “Target folder does not exist! “
objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath))
Set folder=objFSO.GetFolder(path)
Set files=folder.files
For Each file in files
If StrComp(objFSO.GetExtensionName(,”zip”,vbTextCompare)=0 Then
objShell.NameSpace(targetpath & Right(path,Len(path)-Len(sourcepath))).CopyHere objShell.NameSpace(path & “\” &,256
End If
Set subfolder=folder.subfolders
For Each sfolder in subfolder
GetZipFile path & “\” &
End If
End Function

Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”)
Set oApp=CreateObject(“Shell.Application”)
targetpath=”D:\tmp\” & objFSO.GetFileName(sourcepath)
GetZipFile sourcepath
Set objFSO=Nothing
Set oApp=Nothing

Recommended Today

Details of multi-path and large capacity hard disk mount under CentOS

I. application environment and requirementsBlade servers connect HP storage through fiber switches, forming a 2×2 link The storage capacity of the operating system for CentOS 6.4 64 bit mount is 2.5t Based on this application environment, two problems need to be solved: In order to ensure the stability and transmission performance of the link, multi-path […]