※ 引述《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