高手請進 ！winRAR 命令行執行 出錯！
我用WinRAR3.0 程序在自己的計算機調試沒有問題，在別人家的機有的有問題，有的沒有問題，就算我幫他裝了一樣版本的winRAR 也有同樣的問題！
請高手幫我看看程序有什麼問題！謝謝！
'*************************************************************************
'由輸入的壓縮文件標志，判斷是否要上傳壓縮文件,並做系列處理,最終 源文件路徑和文件名Text_sdirname.Text，源文件名Text_sname.Text，目標文件名Text_dname.Text 賦值
'如有生成壓縮文件 ble_ShellCompress = True
'*************************************************************************
Public Function CompressDone(Check1 As CheckBox) As Boolean '出錯時(按取消)，返回false,
Dim str_sdirname, str_sname, str_dname As String '存放源文件路徑和文件名，源文件名，目標文件名
Dim X As Double '存 執行 shell的返回值
Dim str_WinrarPath As String '存WinRAR 軟件 可執行程序路徑名
str_WinrarPath = "C:\Program Files\WinRAR\WinRAR.exe " 'str_WinrarPath 賦值
ble_ShellCompress = False '無 壓縮文件 標志
On Error GoTo ErrHandler
'打開文件對話框 設置
Form_main.CommonDialog1.CancelError = True 'CommonDialog1.ShowOpen按了“取消”GoTo ErrHandler
Form_main.CommonDialog1.Filter = "Text File (*.txt;*.doc;*.xls)|*.txt;*.doc;*.xls|All File(*.*)|*.* " '設置打開文件對話框，類型文件過濾
Form_main.CommonDialog1.ShowOpen '顯示打開文件對話框
'源文件路徑和文件名，源文件名，目標文件名 字符串 賦初值
str_sdirname = Trim(Form_main.CommonDialog1.FileName)
str_sname = Trim(Form_main.CommonDialog1.FileTitle)
str_dname = Trim(Form_main.CommonDialog1.FileTitle)
'要上傳壓縮文件時 ，用shell與winRAR壓縮選中文件，在當前選中的文件夾
If Check1.Value = 1 And Right(Trim(str_sdirname), 4) <> ".rar " Then '當須上傳壓縮文件，但選中的非壓縮文件
'X = Shell(str_WinrarPath & " a " & str_sdirname & ".rar " & str_sdirname, vbHide) '壓縮文件到選中文件的文件夾
X = Shell(str_WinrarPath & " a -ep1 " & str_sname & " " & str_sdirname, vbHide) '壓縮文件到選中文件的文件夾
If X = 0 Then '壓縮失敗
MsgBox "Compress file failed! ", , "Sorry: "
'Exit Function
GoTo ErrHandler
Else '壓縮成功
str_sdirname = str_sdirname & ".rar "
str_sname = str_sname & ".rar "
str_dname = str_dname & ".rar "
ble_ShellCompress = True '有 壓縮文件 標志
End If
End If
'源文件路徑Text_sdirname，源文件名Text_sname，目標文件名Text_dname，賦值
Form_main.Text_sdirname.Text = str_sdirname
Form_main.Text_sname.Text = str_sname
Form_main.Text_dname.Text = str_dname
'MsgBox ble_ShellCompress
CompressDone = True
Exit Function
ErrHandler:
CompressDone = False
Form_main.Text_sdirname.Text = " "
Form_main.Text_sname.Text = " "
Form_main.Text_dname.Text = " "
Form_main.Text_dfolder = " "
Form_main.Text_filesize = " "
End Function
[解决办法]
出的什么问题？
[解决办法]
试着把winrar装在非系统盘。
[解决办法]
路径不对啊
