以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  copyfile出现了问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66240)
--  作者：hqy168168
--  发布时间：2015/4/1 20:20:00
--  copyfile出现了问题
调试了很久也没有解决。在弹出的对话无论点击“是”还是“否”，都报错，什么问题啊？请教
目的：将项目目录下的文件复制到他目录，如果目录存在该文件，提示是否覆盖，不覆盖也要复制进去。

Dim ByCopyPath As String = ProjectPath & "\\data.xls"
Dim dlg As New SaveFileDialog
dlg.Filter= "Excel文件|*.xls"
dlg.OverwritePrompt = False
If dlg.ShowDialog = DialogResult.Ok Then
    Dim ToCopyPath As String = dlg.FileName
    If FileSys.FileExists(ToCopyPath) Then
        Dim Result As DialogResult
        Dim waring1 As String = FileSys.GetName(ToCopyPath)
        Dim waring2 As String = """" & waring1 & """已经存在."
        Dim waring3 As String = vbcrlf & "你要覆盖原文件吗?"
        Dim waring As String = waring1 & waring2 & waring3
        Result = MessageBox.Show(waring,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            FileSys.CopyFile(ByCopyPath,ToCopyPath,True)
        Else
            FileSys.CopyFile(ByCopyPath,ToCopyPath)
        End If
    Else
        FileSys.CopyFile(ByCopyPath,ToCopyPath)
    End If
End If
--  作者：有点甜
--  发布时间：2015/4/1 20:23:00
--  
 报什么错？
--  作者：有点甜
--  发布时间：2015/4/1 20:24:00
--  
 有可能你excel文件正在打开状态啊，怎么覆盖。
--  作者：hqy168168
--  发布时间：2015/4/1 20:42:00
--  
不好意思，是的文件是打开状态的，关闭后就正常了，谢谢先。

另外请问一下：
1、如何将 "c:\\reports\\data.xls" 文件转换成"c:\\reports\\data.jpg" 或 "c:\\reports\\data.html"
2、点击按钮 btn1 可以预览 data.jpg，点击按钮 btn2 预览 data.html，怎么写代码呢？
--  作者：有点甜
--  发布时间：2015/4/1 20:47:00
--  

1、

 

Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)
Wb.SaveAs(Filename:=ProjectPath & "Reports\\基层法律服务所名册.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit
 
 
--  作者：有点甜
--  发布时间：2015/4/1 20:47:00
--  

2、http://www.foxtable.com/help/topics/0353.htm

 
--  作者：hqy168168
--  发布时间：2015/4/1 20:51:00
--  
非常感谢。学习学习