但可行
覺得拷貝無聊者請忽略
'代碼定義了兩個子程序壹個解壓壹個壓縮
.版本
2
.子程序
壓縮_WinRAR_壓縮,
文本型,
公開,
本命令需要安裝WinRAR
.參數
被壓縮的文件,
文本型,
數組,
文件和文件夾都可以
.參數
壓縮到文件,
文本型,
,
全路徑和rar\zip文件名
.參數
WinRAR地址,
文本型,
可空,
如果註冊表內沒有WinRAR的信息。但是安裝了的。就需要寫
例:C:\Program
Files\WinRAR\WinRAR.exe
.局部變量
易團俊,
整數型
.局部變量
被壓縮信息,
文本型
易團俊
=
0
被壓縮信息
=
“”
.如果真
(是否為空
(WinRAR地址))
WinRAR地址
=
取文本註冊項
(#本地機器,
“SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\WinRAR.exe\”,
)
.如果真結束
.如果真
(WinRAR地址
=
“”)
返回
(“找不到WinRAR目錄”)
.如果真結束
.計次循環首
(取數組成員數
(被壓縮的文件),
易團俊)
被壓縮信息
=
被壓縮信息
+
“
”
+
被壓縮的文件
[易團俊]
.計次循環尾
()
運行
(WinRAR地址
+
“
a
-ep1
-scul
-r0
-iext
”
+
壓縮到文件
+
被壓縮信息,
真,
)
返回
(“”)
.子程序
壓縮_WinRAR_解壓,
文本型,
公開,
本命令需要安裝WinRAR
.參數
壓縮文件,
文本型,
,
全路徑和rar\zip文件名
.參數
解壓到文件夾,
文本型,
,
文件夾全路徑
.參數
WinRAR地址,
文本型,
可空,
如果註冊表內沒有WinRAR的信息。但是安裝了的。就需要寫
例:C:\Program
Files\WinRAR\WinRAR.exe
.如果真
(是否為空
(WinRAR地址))
WinRAR地址
=
取文本註冊項
(#本地機器,
“SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\WinRAR.exe\”,
)
.如果真結束
.如果真
(WinRAR地址
=
“”)
返回
(“找不到WinRAR目錄”)
.如果真結束
運行
(WinRAR地址
+
“
x
-iext
-ow
-er
”
+
壓縮文件
+
“
”
+
解壓到文件夾,
真,
)
返回
(“”)