为了解决这类问题，我使用Visual Basic Scripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进去，使用了一些判断。 复制代码 代码如下: call main() Sub main() Dim fs ''文件系统。 Dim f ''folder Dim fc ''files Dim s ''string Dim ws ''SHELL。 Dim subfs Dim

复制代码 代码如下: Function sha1_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject('CAPICOM.HashedData') Set Utility = CreateObject('CAPICOM.Utilities') Set Stream = CreateObject('ADODB.Stream') HashedData.Algorithm = 0

压缩代码: 复制代码 代码如下: Zip 'D:\test.iso', 'D:\test.zip' Zip 'D:\test', 'D:\test.zip' Msgbox 'OK' Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject('Scripting.FileSystemObject') If fso.GetExtensionName(myZipFile) 'zip' Then Exit Sub ElseIf

复制代码 代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject('Scripting.FileSystemObject') targetfile='D:\tmp.zip' Set fp=fso.OpenTextFile(targetfile,2,True) fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0) fp.Close Set

复制代码 代码如下: Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject('CAPICOM.HashedData') Set Utility = CreateObject('CAPICOM.Utilities') Set Stream = CreateObject('ADODB.Stream') HashedData.Algorithm = 3

复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox '目标文件夹不存在！' Else objFSO.CreateFolder targetpath & Right(path,Len(path)-Len

在 Introduction to Regular Expressions（正则表达式简介） 一章中的 Backreferences（向后引用）一节： 复制代码 代码如下: ''使用上面所示的正则表达式，下面的 JScript 代码可以使用子匹配信息，在一个文字字符串中将连续出现两次的相同单词替换为一个相同的单词： var ss = 'Is is the cost of of gasoline going up u

可以说，对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序，基本上都是靠无限循环实现的，一点技术含量也没有，文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。虽然用WMI也得无限循环，但是效率是不一样的。 使用WMI的Win32_VolumeChangeEvent类就可以实现，下面是示例代码，更详细