用VBScript實現(xiàn)壓縮目錄中的所有文件(Zip)
更新時間：2012年01月23日 19:53:23 作者：
下面的腳本主要是將制定目錄中得文件，單個壓縮為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注意目標目錄必須是新目錄，使用的時候最好加上判斷。
您可能感興趣的文章:
相關(guān)文章
VBS教程：函數(shù)-Sqr 函數(shù)...2006-11-11
非常不錯的用vbs實現(xiàn)選擇文件夾方法2008-08-08
VBS教程：函數(shù)-ScriptEngineMajorVersion 函數(shù)
VBS教程：函數(shù)-ScriptEngineMajorVersion 函數(shù)...2006-11-11
VBS加密解密源碼(UserAccounts.CommonDialog) 腳本之家修正版
有時候自己寫了VBS又怕共享后別人盜用你的源碼呢？這里提供了VBS程序源碼加密的方法。2011-02-02
VBS教程：屬性-ParentFolder 屬性...2006-11-11
有時候我們需要獲取執(zhí)行當前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作2014-05-05
使用 iisweb.vbs 刪除網(wǎng)站的方法(支持批量刪除)
有時候我們需要批量刪除網(wǎng)站，如果一個一個手工刪除肯定太慢了，這里分享個命令，通過iisweb.vbs批量刪除網(wǎng)站2014-07-07
用vbs輸出一個文件夾的目錄結(jié)構(gòu)，喜歡的朋友可以測試下2013-01-01
VBS教程：VBscript語句-If...Then...Else 語句
If...Then...Else 語句用于計算條件是否為 True 或 False，并且根據(jù)計算結(jié)果指定要運行的語句。通常，條件是使用比較運算符對值或變量進行比較的表達式。If...Then...Else 語句可以按照需要進行嵌套2006-11-11
殺毒的對vbs相當敏感 免殺...2006-08-08