有关保存

Question

我用如下代码让VB自动保存而不用路径，可是好像不行？
Private Sub Form_Load()
Dim temp As String
file = Trim(Command())
file = Mid(file, 2, Len(file) - 2)
RichTextBox1.FileName = file
End SubPrivate Sub 保存_Click()
If file <> "" Then
文本框.SaveFile file
Else
 保存对话框.Action = 2
 If 保存对话框.FileName <> "" Then
    文本框.SaveFile 保存对话框.FileName
End If
End If
End Sub