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

[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)

想請問要如何運用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
推 sky008888:請用 7z.exe, 7zfm.exe 是 file manager
→ fredlee:to sky  沒辦法耶  button按下去後沒反應