晕，压缩问题


Function GetWINRARPath() As String
Dim myReg As New Registry, KeyFound As Boolean
KeyFound = myReg.GetKeyValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE", "Path", GetWINRARPath)
If KeyFound = False Then MsgBox "系统未安装WINRAR.EXE!": GetWINRARPath = ""
If KeyFound = True Then GetWINRARPath = GetWINRARPath & "\WINRAR"
End FunctionSub compress(ByVal SOURCE As String, ByVal TARGET As String)
If Not GetWINRARPath = "" And Dir(SOURCE) > "" Then
    Shell GetWINRARPath & " a " & TARGET & " " & SOURCE, vbHide
End If
End SubPrivate Sub Command1_Click()
   compress "C:\ACDSee2.44 .exe", "c:\ACDSee2.44.RAR"   ' 将"C:\3.bmp",压缩为"c:\x.bmp" 。
End Sub'-----------------------------问题如下：调用时源文件的文件名如有"."则压缩失败，如：
compress "C:\ACDSee2.44 .exe", "c:\ACDSee2.44.RAR" 
这样压缩会失败。
如文件名中间没有"."则没问题，如：
compress "C:\word.exe", "c:\word.RAR" 
则成功为什么？
如何解决?