关于zip解压可能缺少组件问题

infoxin · 发表于 2016-6-16 09:39:20

本帖最后由 infoxin 于 2016-7-1 09:24 编辑

用下面的代码进行解压zip文档，在我用的电脑上正常。在我朋友的电脑上，运行之后出现一个计算机快捷方式。是缺少什么组件或者dll吗？都是win7 64位

Dim $myZipFile, $myTargetDir
$myZipFile = "D:\autoit-test\UnZip.zip"
$myTargetDir = "D:\autoit-test"

UnZip($myZipFile,$myTargetDir)

Func UnZip($myZipFile,$myTargetDir)
      Dim $objShell, $objSource, $objFolderItem, $objTarget, $intOptions
      $objShell = ObjCreate("Shell.Application")
      $objSource = $objShell.NameSpace($myZipFile)
      $objFolderItem = $objSource.Items()
      $objTarget = $objShell.NameSpace($myTargetDir)
      $intOptions = 256
      $objTarget.CopyHere($objFolderItem,$intOptions)
EndFunc

chamlien · 发表于 2016-6-16 10:16:24

传送门：http://autoitx.com/forum.php?mod ... &highlight=7zip

infoxin · 发表于 2016-6-16 10:47:51

谢谢，这个我下载过了，这个是能用，但要带个dll文件加大了脚本。先谢谢你了

ddrs · 发表于 2016-6-29 18:38:42

不错的......

heroxianf · 发表于 2016-6-30 11:54:18

7z 用它比较好吧

mysiap · 发表于 2016-6-30 12:02:30

LZ 應用有裝什麼應用吧…我是win7x64也是跑不起來的。

ybb03 · 发表于 2016-7-16 16:31:47

dll必有的吧

		自动登录	找回密码
密码			加入

[AU3基础] 关于zip解压可能缺少组件问题

相关帖子