用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)
更新時(shí)間：2012年01月23日 19:56:08 作者：
下面的代碼主要是解壓縮目錄中的所有zip格式文件的實(shí)現(xiàn)代碼，需要的朋友可以參考下
復(fù)制代碼 代碼如下:
On Error Resume Next
Dim objFSO,sourcepath,targetpath
Function GetZipFile(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
If StrComp(objFSO.GetExtensionName(file.name),"zip",vbTextCompare)=0 Then
objShell.NameSpace(targetpath & Right(path,Len(path)-Len(sourcepath))).CopyHere objShell.NameSpace(path & "\" & file.name).Items(),256
End If
Next
Set subfolder=folder.subfolders
For Each sfolder in subfolder
GetZipFile path & "\" & sfolder.name
Next
End If
End Function
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set oApp=CreateObject("Shell.Application")
sourcepath="C:\zipfiles"
targetpath="D:\tmp\" & objFSO.GetFileName(sourcepath)
GetZipFile sourcepath
Set objFSO=Nothing
Set oApp=Nothing
您可能感興趣的文章:
相關(guān)文章
演示如何通過腳本創(chuàng)建 Internet Explorer 的實(shí)例，并檢索輸入密碼樣式的文本框中的密碼。需要帶有適當(dāng)?shù)奈谋究虻?Web 頁（名為 password.htm）。2008-06-06
VBS教程：方法-Close 方法...2006-11-11
文件夾定時(shí)自動備份 AutoBackUpFolder.vbs
定時(shí)自動備份文件夾到一個(gè)以時(shí)間命名的新目錄，設(shè)置好后加到啟動項(xiàng)里，只要一啟動機(jī)器程序就會自動運(yùn)行，占系統(tǒng)資源可以不計(jì)。2009-07-07
用vbscript根據(jù)日期查找文件，有時(shí)候我們需要找指定日期的文件，用下面的代碼即可2008-06-06
vbscript下調(diào)用 Dir 命令的方法...2007-04-04
運(yùn)行vbs腳本報(bào)錯(cuò)無效字符、中文亂碼的解決方法(編碼問題)
今天在寫一個(gè)vbs的時(shí)候，發(fā)現(xiàn)中文亂碼，后來寫好代碼正常運(yùn)行的代碼壓縮一下給了同事，發(fā)現(xiàn)報(bào)無效字符，經(jīng)過驗(yàn)證后發(fā)現(xiàn)原來是編碼的問題導(dǎo)致，這里就為大家分享一下2019-12-12
VBS教程：運(yùn)算符-\ 運(yùn)算符...2006-11-11
這篇文章主要介紹了asp+fso創(chuàng)建指定文件并返回 TextStream 對象，該對象可用于讀或?qū)憚?chuàng)建的文件，為了方便使用腳本之家特為大家分享了一個(gè)函數(shù)，方便大家學(xué)習(xí)與理解2006-11-11
VBS教程：函數(shù)-IsNull 函數(shù)...2006-11-11
用vbs實(shí)現(xiàn)修改dns的網(wǎng)關(guān)腳本
這篇文章主要為大家介紹了用vbs實(shí)現(xiàn)修改dns的代碼，需要的朋友可以參考下2008-05-05