老大,帮我看看这个保存对话框应该怎么修改? Post By:2012/4/12 15:38:00 [只看该作者]
Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Excel文件|*.xlsx|Word文件|*.docx|文本文件|*.txt" If If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 If FileSys.FileExists(ProjectPath & "财务管理\" & dlg.FileName) Then FileSys.CopyFile(dlg.FileName,ProjectPath & "财务管理\" & dlg.FileName,True) End If End If