婷婷综合国产,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)民參考!
  • 推薦文章
    主站蜘蛛池模板: 南召县| 奎屯市| 巩义市| 绥阳县| 普兰店市| 秦皇岛市| 海淀区| 上犹县| 商洛市| 梁山县| 尼玛县| 芷江| 芮城县| 陇西县| 塘沽区| 柳河县| 交城县| 忻城县| 峡江县| 江油市| 康保县| 东明县| 宁国市| 新安县| 郯城县| 大安市| 滨海县| 太和县| 凭祥市| 岳普湖县| 营口市| 永济市| 肥西县| 淮北市| 井研县| 读书| 九台市| 房山区| 紫阳县| 衡南县| 潮安县|