校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > 用vbs實現(xiàn)zip功能的腳本

用vbs實現(xiàn)zip功能的腳本

熱門標簽:天津智能外呼系統(tǒng)排名 智云億呼電話機器人 上海辦理400電話選號 機器人打電銷適用于美業(yè)嗎 外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標注app 企業(yè)400電話辦理價錢低 龍巖400電話申請 外呼系統(tǒng)群
壓縮: 
Function fZip(sSourceFolder,sTargetZIPFile) 
'This function will add all of the files in a source folder to a ZIP file 
'using Windows' native folder ZIP capability. 
Dim oShellApp, oFSO, iErr, sErrSource, sErrDescription 
Set oShellApp = CreateObject("Shell.Application") 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
'The source folder needs to have a \&;on the End 
If Right(sSourceFolder,1) > "\" Then sSourceFolder = sSourceFolder  "\" 
On Error Resume Next  
'If a target ZIP exists already, delete it 
If oFSO.FileExists(sTargetZIPFile) Then oFSO.DeleteFile sTargetZIPFile,True  
iErr = Err.Number 
sErrSource = Err.Source 
sErrDescription = Err.Description 
On Error GoTo 0 
If iErr > 0 Then    
fZip = Array(iErr,sErrSource,sErrDescription) 
Exit Function 
End If 
On Error Resume Next 
'Write the fileheader for a blank zipfile. 
oFSO.OpenTextFile(sTargetZIPFile, 2, True).Write "PK"  Chr(5)  Chr(6)  String(18, Chr(0)) 
iErr = Err.Number 
sErrSource = Err.Source 
sErrDescription = Err.Description 
On Error GoTo 0 
If iErr > 0 Then    
fZip = Array(iErr,sErrSource,sErrDescription) 
Exit Function 
End If 
On Error Resume Next  
'Start copying files into the zip from the source folder. 
oShellApp.NameSpace(sTargetZIPFile).CopyHere oShellApp.NameSpace(sSourceFolder).Items 
iErr = Err.Number 
sErrSource = Err.Source 
sErrDescription = Err.Description 
On Error GoTo 0 
If iErr > 0 Then    
fZip = Array(iErr,sErrSource,sErrDescription) 
Exit Function 
End If 
'Because the copying occurs in a separate process, the script will just continue. Run a DO...LOOP to prevent the function 
'from exiting until the file is finished zipping. 
Do Until oShellApp.NameSpace(sTargetZIPFile).Items.Count = oShellApp.NameSpace(sSourceFolder).Items.Count 
   WScript.Sleep 1500'如果不成功,增加一下秒數(shù) 
Loop 
fZip = Array(0,"","") 
End Function  

Call fZip ("C:\vbs","c:\vbs.zip")  



解壓縮: 
Function fUnzip(sZipFile,sTargetFolder) 
'Create the Shell.Application object 
Dim oShellApp:Set oShellApp = CreateObject("Shell.Application") 
'Create the File System object 
Dim oFSO:Set oFSO = CreateObject("Scripting.FileSystemObject") 
'Create the target folder if it isn't already there 
If Not oFSO.FolderExists(sTargetFolder) Then oFSO.CreateFolder sTargetFolder 
'Extract the files from the zip into the folder 
oShellApp.NameSpace(sTargetFolder).CopyHere oShellApp.NameSpace(sZipFile).Items 
'This is a seperate process, so the script would continue even if the unzipping is not done 
'To prevent this, we run a DO...LOOP once a second checking to see if the number of files 
'in the target folder equals the number of files in the zipfile. If so, we continue. 
Do 
WScript.Sleep 1000‘有時需要更改 
Loop While oFSO.GetFolder(sTargetFolder).Files.Count  oShellApp.NameSpace(sZipFile).Items.Count 
End Function 

標簽:阜新 鄂爾多斯 齊齊哈爾 黃山 青島 承德 麗水 錫林郭勒盟

巨人網(wǎng)絡(luò)通訊聲明:本文標題《用vbs實現(xiàn)zip功能的腳本》,本文關(guān)鍵詞  用,vbs,實現(xiàn),zip,功能,的,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用vbs實現(xiàn)zip功能的腳本》相關(guān)的同類信息!
  • 本頁收集關(guān)于用vbs實現(xiàn)zip功能的腳本的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 云林县| 长沙县| 茶陵县| 乌拉特前旗| 鄂托克旗| 洛川县| 宁晋县| 汕头市| 庄浪县| 肃北| 庄浪县| 自贡市| 平江县| 吉水县| 尉犁县| 日喀则市| 邵东县| 安阳县| 绩溪县| 砚山县| 青阳县| 噶尔县| 贺州市| 深水埗区| 宝丰县| 洮南市| 莱西市| 瓮安县| 元阳县| 邻水| 仙桃市| 民乐县| 潞西市| 兴山县| 镶黄旗| 特克斯县| 老河口市| 盐山县| 诸暨市| 永修县| 洱源县|