主题：[求助]路径问题~~~

老师，在整理文件时把路径位置改了一下，结果测试后发现报表输出的时候路径没问题，但是在引用该路径的时候却一直说找不到文件，这是怎么回事呢，路径应该没错啊~~~请老师解惑

 

 

1、报表输出代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\机械管理使用情况表.xls")
Dim dh As WinForm.TextBox = e.Form.Controls("TB代号")
Dim d1 As Date = Date.Today
Dim fl As String = ProjectPath & "Reports" & "\" & "机械管理记录" & "\" & d1.year & "\" & dh.value & "机械管理使用情况表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

 

修改路径前双向都没问题，修改后报表输出位置正确，但是引用时找不到文件

 

 

 

2、引用时代码

Dim d1 As Date = Date.Today
Dim dh As WinForm.TextBox =e.Form.Controls("TB代号")

 

’修改后路径

Dim fl As String =ProjectPath & "Reports" & "\" & "机械管理记录" & "\" & d1.year & "\" & dh.value & "机械管理使用情况表.xls"

 

'修改前   Dim fl As String = ProjectPath & d1.year & "\" & Tables("机械管理表").Current("装备代号") & "机械管理使用情况表.xls"

If FileSys.FileExists(fl)= False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("文件还未生成,是否新建?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("请开始新建文件","提示")
    Else
        Forms("机械管理记录窗口").Close
    End If
End If
Dim  Book As New XLS.Book(fl)

msgbox(fl)弹出看看路径

我明白了~~~~刚开始时dh.value是空的，所以找不到文件，又犯同样的错误了~~~谢谢老师