作者fredlee (Frederick)
看板Visual_Basic
标题[VB2005]请问如何利用winrar或是7zip压缩文字档
时间Thu Feb 22 00:47:24 2007
之前有找到利用winzip压缩的程式码
不过似乎是vb 6.0的
程式码如下：
Dim wzipexe As String ' winzip 执行档的位置
Dim wsource As String ' 原始档案 (压缩前)
Dim wtarget As String ' 目地档案 (压缩後)
Dim wcmd As String ' Shell 指令
Dim retval As Double ' Shell 指令传回值
'拼凑 Shell 指令
wzipexe = "C:\program files\winzip\WINzip32"
wtarget = "D:\456.zip"
wsource = "D:\*.txt"
wcmd = wzipexe & " -a " & "-s""123""" & wtarget & " " & wsource
retval = Shell(wcmd, 6)
想请问要如何运用winrar或是7zip压缩.txt档
是可以直接从以上的程式码改写吗?
我是有试过把wzipexe = "C:\program files\winzip\WINzip32"
直接改写为wzipexe = "C:\program files\WinRAR\WinRAR"
而後面的" -a " 改为" a "
是可以压缩的 但是加密的方式我就不了解了
所以也想请教一下如何利用winrar压缩兼加密
而路径改为"C:\Program Files\7-ZIP\7zFMn.exe"则不行了
主要还是想利用7zip压缩再加密 因为7zip比较没有版权问题
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.170.233.26
1F：推 sky008888:请用 7z.exe, 7zfm.exe 是 file manager 02/22 10:14
2F：→ fredlee:to sky 没办法耶 button按下去後没反应 02/22 13:48