在程式中呼叫Winrar

2021-09-05 14:30:37 字數 1640 閱讀 5311

winrar e e:\rarfile.rar e:\  'extract rar file

winrar a e:\mydir e:\        'add rar file

system.disnogic.process 可以用來啟動乙個新的程序,而且在啟動新程序的時候可以代引數.

for exp:

order = "a " & newname & " " & filename  

dim ps as system.diagnostics.process

ps = new system.diagnostics.process

ps.enableraisingevents = false

dim rarfile as fileinfo = new fileinfo(rarname)

if rarfile.exists then rarfile.delete()

log(rarst)

ps.start("rar.exe", order)

在winrar的目錄裡面,有個叫rar.exe的程式.你只需要啟動這個程式再帶上正確的引數就行了.

rar.exe的引數.

usage:     rar --

<@listfiles...>

a             add files to archive

c             add archive comment

cf            add files comment

cw            write archive comment to file

d             delete files from archive

e             extract files to current directory

f             freshen files in archive

i[par]=find string in archives

k             lock archive

l[t,b]        list archive [technical, bare]

m[f]          move to archive [files only]

p             print file to stdout

r             repair archive

rc            reconstruct missing volumes

rn            rename archived files

rr[n]         add data recovery record

rv[n]         create recovery volumes

s[name|-]     convert archive to or from sfx

t             test archive files

u             update files in archive

v[t,b]        verbosely list archive [technical,bare]

x             extract files with full path

在程式中呼叫Start Run

public declare function shrundialog lib shell32 alias 61 byval howner as long,byval unknown1 as long,byval unknown2 as long,byval sztitle as string,by...

c 呼叫winrar解壓

之前用登錄檔呼叫總是出錯,所以這裡直接使用winrar的絕對路徑 利用 winrar 進行解壓縮 檔案解壓路徑 絕對 將要解壓縮的 rar 檔案的存放目錄 絕對路徑 將要解壓縮的 rar 檔名 包括字尾 public void unrar string path,string rarpath,str...

在ASP程式中呼叫Web Service

微軟投入了大量資金來推銷其.的各種優點,其中.最大的優點之一就是微軟始創的xml web services。xml web services可以將你的程式和以前定製的dll和 d 組建分離 避免陷入dll陷阱 然後將這些功能設計成為xml web services,讓其他應用程式也可以訪問和呼叫這些...