' The file system path we need to split
创新互联从2013年成立,先为盘龙等服务建站,盘龙等地企业,进行企业商务咨询服务。为盘龙企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim s As String = "C:\Users\New York\SoHo\abc.doc"
' Split the string on the backslash character
Dim parts As String() = s.Split(New Char() {"\"c})
之后取数组的最后两个 用“\”连接起来就可以了。
1、如果你的窗体就是你当前工程这个EXE本身的窗体,
那么窗体所在的路径就是工程的启动路径,用下面的语句获取:
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体,那么你既然能LoadLibrary,就应该知道它的路径,所以不用问了。
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方,所以进行了全盘搜索,歌曲的所有地址路径在数组my_path中