用VBScript实现压缩目录中的所有文件(Zip)
导读：收集整理的这篇文章主要介绍了用VBScript实现压缩目录中的所有文件(Zip ，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:On Error Resume N...
收集整理的这篇文章主要介绍了用VBScript实现压缩目录中的所有文件(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注意目标目录必须是新目录，使用的时候最好加上判断。 您可能感兴趣的文章:
- 用VBScript实现解压缩目录中的所有文件(Zip)
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用VBScript实现压缩目录中的所有文件(Zip)
本文地址： https://pptw.com/jishu/609948.html