文件解压

smhf_6

winrar, 用了十多年了，可以用vba 代码 解压，使用很方便。
最近，单位说要用正版，一律删除了，并安装了360软件。
路径是： c:\program files\360\360zip\360zip.exe
我在原代码中就修改了这个内容，但是不能用了， 网上搜索，都是winrar的示例代码

如果打开360应用程序，操作并不方便，不是我想要的。
如果直接用右键点击：压缩文件，右键菜单中的：解压到当前文件夹，是很方便的，直接在桌面上产生了一个解压文件

那么，这个点击，肯定是有一条命令，直接执行了解压，这个命令是什么？ 怎样引用到vba 中来？

烦请各位老师指点，万分感谢！！

microyip

你们单位的人是脑子进水了？360压缩叫“正版软件”？流氓软件还大力推广？

microyip

其实所有压缩软件都一样的，但真正在压缩方面有贡献就WinRAR、WinZIP、7Zip等几家，就算这几家都好，目前免费对外的都是基于同一个压缩算法。

smhf_6

microyip 发表于 2017-12-13 13:31
你们单位的人是脑子进水了？360压缩叫“正版软件”？流氓软件还大力推广？

1、关于算法，无关，我只要vba代码能自动解压即可，winrar是可以。 目前，我只能手工解压。
2、我们单位是超大型的国有企业，管理上与政府靠近，内部效率相当低，当然待遇很差。非正版一律不用，而且响应政府号召，office也将要删除，而使用wps
     对于我们一线员工而言，这是非常痛苦的，但这又有什么办法呢？

fxl447098457

没有360压缩，不好尝试。。你可以研究下，看看安装里面是否有关命令行操作的说明文档

smhf_6

Sub UnRarFile()   '解压缩程序
  Dim Rarexe As String
  Dim RAR As String
  Dim Myadd As String
  Dim FileString As String
  Dim Result As Long
    Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径
    myRAR = "D:\xxx\*.rar"  '需要解压缩的rar文件,
    Myadd = "D:\xxx\"      ' 解压后的文件存放路径
    FileString = Rarexe & " X " & myRAR & " " & Myadd 'rar程序的X命令，用来解压缩文件的字符串
    Result = Shell(FileString, vbHide) '执行解压缩
End Sub

这是winrar 的，很好用
我将Rarexe这句换成，c:\program files\360\360zip\360zip.exe，通不过，似乎360没有命令行
该文件夹下的所有能打开的，我都看了，也没找到什么线索
360是免费软件，但似乎没人用啊，我们单位领导真的脑子进水了

smhf_6

若用右键直接点击压缩文件，菜单中的“解压到当前文件夹”，是可以的，
但是，这一步，句柄察看器无法使用，也不能像工作表可以录制宏，
直接用 shell  c:\program files\360\360zip\360zip.exe 也不行
网上搜索，没有相关信息

northwolves

可以找一些进程命令行参数获取软件试试

smhf_6

northwolves 发表于 2017-12-13 21:55
可以找一些进程命令行参数获取软件试试

非常感谢northwolves老师，见到您很高兴，已经十多年了，您一直在陪护着我们，真的很感激，谢谢

smhf_6

刚才到360官网看了一下，那里明确答复：不支持命令调用

不过，既然右键菜单中一键解压能解决的问题，通过api函数肯定也行，若能录制宏就好了