| 标题 | 用VBScript实现压缩目录中的所有文件(Zip) |
| 内容 | 下面的脚本主要是将制定目录中得文件，单个压缩为zip格式的文件，需要的朋友可以参考下 代码如下: 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 "目标文件夹不存在！" 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") sourcepath="C:\Documents and Settings\Administrator\桌面\Watermarks" targetpath="D:\temp" GetSourceFile sourcepath Set objFSO=Nothing Set oApp=Nothing 使用方法: 直接将上面的代码保存为test.vbs文件，然后修改sourcepath与targetpath注意目标目录必须是新目录，使用的时候最好加上判断。 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。