高手　！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)


'要上文件 ，用shellwinRAR中文件，在前中的文件
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装在非系统盘。
[解决办法]
路径不对啊