作者fredlee (Frederick)
看板Visual_Basic
标题Re: [VB2005]请问如何利用winrar或是7zip压缩文字档
时间Fri Feb 23 00:21:17 2007
※ 引述《fredlee (Frederick)》之铭言:
: 之前有找到利用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)
我直接将程式改写成
retval = Shell("C:\Program Files\7-ZIP\7z.exe a -tzip
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^ ^^^^^
使用7zip压缩 压缩指令 压成zip档
D:\456.zip D:\123.txt", 6)
^^^^^^^^^^ ^^^^^^^^^^
目标位置及档名 原始位置及档名
如果使用的是WINRAR的话 我已经可以压缩兼加密了
但是使用7ZIP 却连压缩都不行ˊˋ
有人知道哪里错误了可以跟我讲吗?
我看7zip的说明是如下:
a)
7z a -tzip archive.zip subdir\*
说明:adds all files from directory subdir to archive archive.zip.
b)
7z a -tzip Files.zip "Program files\*" -r
说明:adds all files from directory Program to archive Files.zip.
c)
7z a -tzip archive.zip -r src\*.cpp src\*.h
说明:adds all *.cpp and *.h files from directory src and all it's subdirectories
to archive.zip archive
而winrar的说明如下:
a) 从目前资料夹加入全部 *.hlp 档案到压缩档案 help.rar 中
WinRAR a help *.hlp
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.114.195.1
1F:→ fredlee:我成功了!好像是因为7zip本身版本问题 下了新版就ok了 02/23 01:02
2F:推 gcup78:感谢...我也会了.... 03/01 03:08