怎么用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件

本篇內(nèi)容介紹了“怎么用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

復(fù)制代碼 代碼如下:

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 "目標(biāo)文件夾不存在！" 
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注意目標(biāo)目錄必須是新目錄，使用的時(shí)候最好加上判斷。

“怎么用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！