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

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

'//判断本地文件是否存在//
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