以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]相对路径问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57914)
--  作者：99473593
--  发布时间：2014/10/8 9:49:00
--  [求助]相对路径问题

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

\'//判断本地文件是否存在//
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
--  作者：有点甜
--  发布时间：2014/10/8 9:50:00
--  
If FileSys.FileExists(projectpath & "Project\\ppy2\\" & d & ".shi") Then  ‘相对路径
--  作者：99473593
--  发布时间：2014/10/8 9:56:00
--  

啊，谢谢了，这个问题弄了我一个多小时
--  作者：99473593
--  发布时间：2014/10/8 13:08:00
--  

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

 

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

 
--  作者：99473593
--  发布时间：2014/10/8 13:09:00
--  
我看了，路径也没错啊，发布时，把BOBOYA文件夹也一起发布的啊
--  作者：有点甜
--  发布时间：2014/10/8 14:01:00
--  

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

 

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