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

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 […]