怎么用VBScript实现压缩目录中的所有文件-创新互联

本篇内容介绍了“怎么用VBScript实现压缩目录中的所有文件”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

创新互联建站是一家集网站建设,越城企业网站建设,越城品牌网站建设,网站定制,越城网站建设报价,网络营销,网络优化,越城网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

复制代码 代码如下:

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实现压缩目录中的所有文件”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！

本文名称：怎么用VBScript实现压缩目录中的所有文件-创新互联
文章来源：http://dzwzjz.com/article/cejjji.html