老大,帮我看看这个保存对话框应该怎么修改? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老大,帮我看看这个保存对话框应该怎么修改?

共有8300人关注过本帖树形打印复制链接主题：老大,帮我看看这个保存对话框应该怎么修改?

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

老大,帮我看看这个保存对话框应该怎么修改? 发帖心情

Post By：2012/4/12 15:38:00 [只看该作者]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/4/12 15:45:00 [只看该作者]

ProjectPath & "财务管理\" & FileSys.GetName(dlg.FileName)

提示：有两处需要改。

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/4/12 15:51:00 [只看该作者]

我看看

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/4/12 15:55:00 [只看该作者]

老大,整个代码:

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

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