How to decompress all the files in the directory with VBScript

This article mainly introduces how to use VBScript to extract all the files in the directory, it has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand it.

The 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 "destination folder does not exist!"

Else

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 (file.name), "zip", vbTextCompare) = 0 Then

ObjShell.NameSpace (targetpath & Right (path,Len (path)-Len (sourcepath)) .CopyHere objShell.NameSpace (path & "\" & file.name) .Items (), 256

End If

Next

Set subfolder=folder.subfolders

For Each sfolder in subfolder

GetZipFile path & "\" & sfolder.name

Next

End If

End Function

Set objFSO=Server.CreateObject ("Scripting.FileSystemObject")

Set oApp=CreateObject ("Shell.Application")

Sourcepath= "C:\ zipfiles"

Targetpath= "D:\ tmp\" & objFSO.GetFileName (sourcepath)

GetZipFile sourcepath

Set objFSO=Nothing

Set oApp=Nothing

Thank you for reading this article carefully. I hope the article "how to decompress all the files in the directory with VBScript" shared by the editor will be helpful to you. At the same time, I also hope you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!