Re: [VB2005]請問如何利用winrar或是7zip壓縮文字檔

看板Visual_Basic作者fredlee (Frederick)時間18年前 (2007/02/23 00:21)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串2/2 (看更多)

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