婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識(shí)庫 > 用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)

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

熱門標(biāo)簽:打電話的外呼系統(tǒng)貴不貴 百度地圖標(biāo)注怎么卸載 加盟電銷機(jī)器人好的品牌 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 辦理膠州400電話財(cái)稅 前鋒辦理400電話申請(qǐng) 新密防封卡外呼系統(tǒng)違法嗎 外呼營銷下單系統(tǒng) 海外美發(fā)店地圖標(biāo)注
復(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
您可能感興趣的文章:
  • 用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件(Zip)

標(biāo)簽:梅州 四平 阜陽 咸陽 伊春 河南 武威 牡丹江

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)》,本文關(guān)鍵詞  用,VBScript,實(shí)現(xiàn),解,壓縮,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)》相關(guān)的同類信息!
  • 本頁收集關(guān)于用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 贞丰县| 通榆县| 前郭尔| 太湖县| 称多县| 日土县| 信阳市| 北票市| 荥经县| 留坝县| 福鼎市| 洛浦县| 宣城市| 都江堰市| 崇左市| 盐山县| 潜山县| 民县| 江川县| 钟山县| 龙海市| 汝南县| 攀枝花市| 山丹县| 得荣县| 武宁县| 沅江市| 喀什市| 江永县| 铅山县| 根河市| 怀柔区| 泽州县| 镇远县| 同江市| 库尔勒市| 八宿县| 黄平县| 呼和浩特市| 凉山| 遵义县|