最新消息:

Zip压缩与解压

autoit 永恒心锁 1072浏览 0评论

Zip压缩与解压改写了之前的VBS脚本而已
只是创建Shell对象进行解压缩,没什么特别的
压缩:

#include <file.au3>
#include <array.au3>
#include <string.au3>

Dim $SourceDir, $ZipFile
$SourceDir= @ScriptDir & "\1111.txt"
$ZipFile= @ScriptDir & "\test.zip"
Zip($SourceDir, $ZipFile)

Func Zip($mySourceDir, $myZipFile)
 Dim $PathArr, $Ftype, $szDrive, $szDir, $szFName, $szExt,$f, $objShell, $objSource, $objFolderItem, $objTarget, $intoptions
 $PathArr = _PathSplit($mySourceDir, $szDrive, $szDir, $szFName, $szExt)
;~ _ArrayDisPlay($PathArr,"路径拆分演示")
 If StringLen($szExt)=0 Then
 $Ftype = "Folder"
 ElseIf StringLen($szExt)>0 Then
 $Ftype = "File"
 Else
 MsgBox(4096,"错误","压缩源文件/文件夹路径出错!")
 Exit
 EndIf
 $f = _FileCreate($myZipFile)
 FileWrite($f,"PK"&chr(5)&chr(6)&_StringRepeat(chr(0),18))
 FileClose($f)
 $objShell = objcreate("shell.Application")
 Select
 Case $Ftype="Folder"
 $objSource = $objShell.NameSpace($mySourceDir)
 $objFolderItem = $objSource.Items()
 Case $Ftype="File"
 $objSource = $objShell.NameSpace($szDrive & $szDir)
 $objFolderItem = $objSource.ParseName($szFName & $szExt)
 EndSelect
 $objTarget = $objShell.NameSpace($myZipFile)
 $intoptions = 256
 $objTarget.CopyHere($objFolderItem, $intoptions)
 Do
 sleep(1000)
 Until $objTarget.Items.Count>0
EndFunc

解压:

#include <file.au3>
#include <array.au3>
;~ #include <string.au3>

Dim $ZipFile, $TargetDir
$ZipFile = "D:\autoit_test\UnZip.zip"
$TargetDir = "D:\autoit_test" 

UnZip($ZipFile,$TargetDir)

Func UnZip($myZipFile,$myTargetDir)
 Dim $objShell, $PathArr, $szDrive, $szDir, $szFName, $szExt, $objSource, $objFolderItem, $objTarget, $intOptions
 $objShell = ObjCreate("Shell.Application")
 $PathArr = _PathSplit($myZipFile, $szDrive, $szDir, $szFName, $szExt)
 _ArrayDisPlay($PathArr,"路径拆分演示")
 If Not(FileExists($myZipFile)) Then
 MsgBox(4096,"错误","解压缩源文件路径不存在!")
 Exit
 ElseIf Not($szExt=".zip") Then
 MsgBox(4096,"错误","解压缩源文件路径出错!")
 Exit
 ElseIf Not(FileExists($myTargetDir)) Then
 DirCreate($myTargetDir)
 EndIf
 $objSource = $objShell.NameSpace($myZipFile)
 $objFolderItem = $objSource.Items()
 $objTarget = $objShell.NameSpace($myTargetDir)
 $intOptions = 256
 $objTarget.CopyHere($objFolderItem,$intOptions)
EndFunc
永恒心锁,版权所有丨如未注明,均为转载丨本网站采用BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » Zip压缩与解压

您必须 登录 才能发表评论!