Shulou(Shulou.com)06/03 Report--

This article mainly introduces that you can only use scripts to automatically compress all files under the specified target, which has a certain reference value, and interested friends can refer to it. I hope you will gain a lot after reading this article. Let's take a look at it.

To solve this kind of problem, I designed a script using Visual Basic Scripting that can automatically achieve this goal. In this script, all files are automatically compressed. To avoid compressing the script itself, some judgments are used.

The code is as follows:

Call main ()

Sub main ()

Dim fs' file system.

Dim f'folder

Dim fc 'files

Dim's' string

Dim ws' SHELL.

Dim subfs

Dim fi

'create a SHELL.

Set ws = CreateObject ("WScript.Shell")

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (ws.currentdirectory)

Handle_files (ws.currentdirectory)

Set subfs = f.SubFolders

'iterate through each subdirectory.

For Each fi In subfs

Call ListSub (fi.Path)

Next

End Sub

Sub ListSub (filename)

On Error Resume Next

Dim subfs' subdirectory.

'deal with the current directory first.

Handle_Files (filename)

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (filename)

Set subfs = f.SubFolders

For Each fi In subfs

Call ListSub (fi.Path)

Next

End Sub

'process the files in each directory.

Sub Handle_Files (foldername)

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (foldername)

Set fc = f.Files

'create a SHELL.

Set ws = CreateObject ("WScript.Shell")

'traverse the file object.

For Each fl In fc

If ((instr (fl.Name, "vbs") = 0) and (instr (fl.Name, "rar") = 0)) then

'compress it.

S = "winrar M-ep" & fl.Path & ".rar" & fl.Path

Ws.Run s, 0, True

End If

Next

End Sub

Sub output (string)

Wscript.echo string

End sub

A more ingenious approach

Making a slight change to the previous script and using regular expressions (Regular Expression) can facilitate our judgment process. The modified script is shown below. Note that we exclude uncompressed file types here.

The copy code is as follows:

Call main ()

Sub main ()

Dim fs' file system.

Dim f'folder

Dim fc 'files

Dim's' string

Dim ws' SHELL.

Dim subfs

Dim fi

'create a SHELL.

Set ws = CreateObject ("WScript.Shell")

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (ws.currentdirectory)

Handle_files (ws.currentdirectory)

Set subfs = f.SubFolders

'iterate through each subdirectory.

For Each fi In subfs

Call ListSub (fi.Path)

Next

End Sub

Sub ListSub (filename)

On Error Resume Next

Dim subfs' subdirectory.

'deal with the current directory first.

Handle_Files (filename)

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (filename)

Set subfs = f.SubFolders

For Each fi In subfs

Call ListSub (fi.Path)

Next

End Sub

'process the files in each directory.

Sub Handle_Files (foldername)

'create a file object.

Set fs = CreateObject ("Scripting.FileSystemObject")

Set f = fs.GetFolder (foldername)

Set fc = f.Files

'create a SHELL.

Set ws = CreateObject ("WScript.Shell")

'traverse the file object.

For Each fl In fc

If (RegExpTest (".vbs | .rar | .zip", fl.name) = false) then

'compress it.

S = "winrar M-ep" & fl.Path & ".rar" & fl.Path

Output s

Ws.Run s, 0, True

End If

Next

End Sub

Sub output (string)

Wscript.echo string

End sub

'use regular expressions to judge.

Function RegExpTest (patrn, strng)

Dim regEx, retVal 'Create variable.

Set regEx = New RegExp 'Create regular expression.

RegEx.Pattern = patrn 'Set pattern.

RegEx.IgnoreCase = False 'Set case sensitivity.

RetVal = regEx.Test (strng) 'Execute the search test.

If retVal Then

RegExpTest = true

Else

RegExpTest = false

End If

End Function

Thank you for reading this article carefully. I hope the article "you can only use scripts to automatically compress all files under the specified target" shared by the editor will be helpful to you. At the same time, I also hope that you will support and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.