[原创]一个值得注意的文件系统问题 — 编程爱好者论坛http://bbs.pfan.cn

在利用App.Path函数时，假如你生成的可执行文件在某个驱动器的根目录，那么，使用App.Path得到的路径就是诸如“C:\\a.exe”的路径，这显然不是我们所需要的，下面，可以通过自定义函数解决这个问题。

Function incase(link)
Dim dj As String
If InStrRev(link, "\\") > 0 Then
  dj = Replace(link,"\\","\")  '将link中的"\\"换成"\"
  incase=dj
  Else
  incase=link
  End If
End Function

最后修改于2008-8-17 21:15:00

我要推荐

发表时间：2008-8-13 7:49:00 [回复] [引用]

= =;问题呢？

日本轻小说阅读中...

发表时间：2008-8-13 10:42:00 [回复] [引用]

更简洁的办法是：

Function incase(link) as string
incase=Replace(link,"\\","\")
End Function

最后修改于2008-8-13 10:42:00

发表时间：2008-8-13 10:43:00 [回复] [引用]

你这个函数有问题，
Else
incase = dj
返回空字串

一只飞进玻璃瓶的蚊子，看得见光明，却找不到出路。

俺是来刷分的

发表时间：2008-8-17 14:02:00 [回复] [引用]

确实有这个问题，但不会出错，大多数时候不用管它

http://guoyong.programfan.com
MyQQ:37640946

发表时间：2008-8-20 17:05:00 [回复] [引用]

我一般这样用：
app.path & iif(right(app.path,1)="\",vbnullstring,"\")

最后修改于2008-8-20 17:06:00

发表时间：2008-9-21 23:37:00 [回复] [引用]

好贴啊不错啊谢谢楼主分享拉 (*^__^*) 嘻嘻……








------------------------------------------------------------
城小贼不屠高佰魔力秀腿鞋　广州，人贫索尼耳机　广州怜

首页 \| 通行证 \| 论坛 \| BLOG \| 书评 \| 开发文章 \| 人才招聘 \| 资讯 \| 工具下载 \| 源码下载 \| 项目交易 \| 兴趣小组 \| 网友作品 \| C语言试题测试 \| 资源共享 \| ACM题库
注册新会员