关于VB中路径的问题

Question

有一图片 和 本程序在同一目录下  怎么用相对路径来表达

Answer 1

app.path & "\" & 文件名http://www.eob.cn/bbs

Answer 2

相对路径：文件名（含后缀）效果相当于：app.path & "\" & 文件名

Answer 3

如果用app.path & "\" & 文件名的话，有一种情况不行，比如文件名叫：abc.jpg，这个文件在c盘根目录：
app.path 返回的是：c:\，如果执行 app.path & "\abc.jpg" 的话，路径就变成：c:\\abc.jpg了。可以用一个iif之类的或别的语句来：
app.path & iif( len(app.path) = 3, "abc.jpg", "\abc.jpg" )

Answer 4

dim s as string
s=app.path
if right$(s,1)<>"\" then s=s & "\"
s=s & "abc.jpg"

Answer 5

app.path & iif(right(app.path,1) = "\", "", "\" ) & "abc.jpg"

Answer 6

app.path & iif(right(app.path,1) = "\", "", "\" ) & PictureName

Answer 7

if right(app.path,1)<>"\" then
    s=app.path & "\" & "abc.jpg"
else
    s=app.path & "abc.jpg"
end if