主题：[求助]相对路径问题

请高手帮我改下这段代码，我用绝对路径判断可以执行，但用下面的相对路径就执行不了

'//判断本地文件是否存在//
Dim d As String = e.DataRow("条码号")
If FileSys.FileExists("F:\开发20140614\ERP开发\Project\ppy2\"& d &".shi") Then  ’绝对路径
    e.DataRow("有无本地图片") = "有" '如果存在,则在"是否有本地图片"列填入"是"
Else
    e.DataRow("有无本地图片") = "无" ''如果不存在,则在"是否有本地图片"列填入"否"
End If

 

 

下面用相对路径就执行不了，请帮我修改下
，'//判断本地文件是否存在//
Dim d As String = e.DataRow("条码号")
If FileSys.FileExists("projectpath &\Project\ppy2\"& d &".shi") Then  ‘相对路径
    e.DataRow("有无本地图片") = "有" '如果存在,则在"是否有本地图片"列填入"是"
Else
    e.DataRow("有无本地图片") = "无" ''如果不存在,则在"是否有本地图片"列填入"否"
End If

If FileSys.FileExists(projectpath & "Project\ppy2\" & d & ".shi") Then  ‘相对路径

啊，谢谢了，这个问题弄了我一个多小时

能帮我再看下吗，相对路径，发布后的项目执行不了，在开发版中是能执行的

 

'//判断本地文件是否存在//
Dim dc As String = e.DataRow("条码号")
If FileSys.FileExists(projectpath & "project\BOBOYA\BOBOYA商品数据\"& dc &".shi") Then  'project\BOBOYA\BOBOYA商品数据
    e.DataRow("有无本地图片") = "有" '如果存在,则在"是否有本地图片"列填入"是"
Else
    e.DataRow("有无本地图片") = "无" ''如果不存在,则在"是否有本地图片"列填入"否"
End If

 

我看了，路径也没错啊，发布时，把BOBOYA文件夹也一起发布的啊

对应的文件夹，请放到publish的project文件夹下，路径要这样

 

If FileSys.FileExists(projectpath & "BOBOYA\BOBOYA商品数据\"& dc &".shi") Then  'project\BOBOYA\BOBOYA商品数据