Compression of all files in the directory (Zip) with VBScript

Time:2019-10-8
Copy codeThe code is as follows:
On Error Resume Next
Dim objFSO,sourcepath,targetpath,targetfile

Function GetSourceFile(path)
Dim file,folder,sfolder,subfolder,files
If Not objFSO.FolderExists(path) Then
Msgbox “Target 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
targetfile=targetpath & Right(path,Len(path)-Len(sourcepath)) & “\” & file.name & “.zip”
Set fp=objFSO.OpenTextFile(targetfile,2,True)
fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
fp.Close
oApp.Namespace(targetfile).CopyHere path & “\” & file.name
WScript.Sleep 1000
Next
Set subfolder=folder.subfolders
For Each sfolder in subfolder
GetSourceFile path & “\” & sfolder.name
Next
End If
End Function

Set objFSO=CreateObject(“Scripting.FileSystemObject”)
Set oApp=CreateObject(“Shell.Application”)
Sorcepath= “C: Documents and Settings Administrator Desktop Watermarks”
targetpath=”D:\temp”
GetSourceFile sourcepath
Set objFSO=Nothing
Set oApp=Nothing

Usage method:
Save the above code as test. VBS file directly, then modify sourcepath and targetpath. Note that the target directory must be a new directory, and you’d better add judgment when using it.

Recommended Today

Understanding and deepening of relative path and absolute path

What is relative path and absolute path Last week’s report solved some problems, but also exposed many problems, one of which is the relative path and absolute path. For PHP using xampp to build a server, the relative path refers to the current file relative to the user’s access, and the absolute path refers to […]