以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老大,帮我看看这个保存对话框应该怎么修改?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18423)
--  作者：blackzhu
--  发布时间：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
--  作者：狐狸爸爸
--  发布时间：2012/4/12 15:45:00
--  

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

 

提示：有两处需要改。
--  作者：blackzhu
--  发布时间：2012/4/12 15:51:00
--  
我看看
--  作者：blackzhu
--  发布时间：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

 

但是不起作用,而且提示文件存在,是否覆盖?  怎么办?
--  作者：blackzhu
--  发布时间：2012/4/12 16:21:00
--  
做是做出来了,那个覆盖提示能不能去掉?
--  作者：狐狸爸爸
--  发布时间：2012/4/12 16:24:00
--  

可以去掉，看这里的说明：

http://www.foxtable.com/help/topics/0329.htm

 
--  作者：blackzhu
--  发布时间：2012/4/12 16:25:00
--  
搞定了,谢谢!