主题：老大,帮我看看这个保存对话框应该怎么修改?

老大,整个代码:

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Excel文件|*.xlsx|Word文件|*.docx|文本文件|*.txt"
 If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    If FileSys.FileExists(ProjectPath & "财务管理\" & FileSys.GetName(dlg.FileName)) Then
        FileSys.CopyFile(dlg.FileName,ProjectPath & "财务管理\" & FileSys.GetName(dlg.FileName),True)
    End If
End If
Dim Val As String
For Each File As String In FileSys.GetFiles(ProjectPath & "财务管理")
    Dim f As Io.FileInfo =   FileSys.GetFileInfo(File)
    Val = Val & "|" & f.Name
Next
e.Form.Controls("ListBox1").ComboList =Val

但是不起作用,而且提示文件存在,是否覆盖?  怎么办?