用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)文章
可以躲過(guò)殺毒軟件的vbs下載網(wǎng)絡(luò)文件并保存為本地的加強(qiáng)版代碼2008-05-05
用vbs實(shí)現(xiàn)guest用戶(hù)的狀態(tài)的腳本2008-05-05
使用vbs實(shí)現(xiàn)文本文件編碼的查詢(xún)的代碼，需要的朋友可以參考下。2010-06-06
VBS教程：屬性-Files 屬性...2006-11-11
allfiles.vbs 顯示子目錄下的所有文件的修改時(shí)間、大小、文件名、擴(kuò)展名等
這篇文章主要介紹了allfiles.vbs之顯示子目錄下的所有文件的修改時(shí)間、大小、全限定名定名等信息,需要的朋友可以參考下2020-08-08
VBS教程：運(yùn)算符-比較運(yùn)算符...2006-11-11
VBS Runas 自動(dòng)輸入密碼 提權(quán)腳本等功能2009-06-06
對(duì)于想結(jié)合OWC的朋友，可以參考下。2009-05-05
Excel 中將數(shù)值轉(zhuǎn)換為英文單詞2009-08-08
返回基于0的一維數(shù)組,其中包含指定樹(shù)木的子字符串.下面的例子,將字符串以&為標(biāo)記分割開(kāi)來(lái)2006-11-11