VB相对路径

我在Image中，在播放器中引用的文件，写文件时写成了绝对路径，可是这样到了其他的地方就不可以播放，怎么写成相对路径，写个例子。

把wimdos media play 控件。拉到窗体

命名wmp

接着写代码

wmp.url=app.path & "\偏爱.mp3"

就这样。

用APP.PATH就可以，如果还没搞定，加我教你

Public Function GetCurrentFile(byval Filename as string)as string

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

End Function

使用方法：

Msgbox GetCurrentFile("Help.doc")

Msgbox GetCurrentFile("\china\Help.doc")

App.path

Image1.picture=loapicture(app.path & "\1.jpg")

即为引用程序所在文件夹下的1.jpg

App.Path & 名字

App.Path 可以得到当前路径，然后在此基础上进行变换。