重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
app.path是VB6中的用法.
创新互联建站是一家企业级云计算解决方案提供商,超15年IDC数据中心运营经验。主营GPU显卡服务器,站群服务器,联通服务器托管,海外高防服务器,大带宽服务器,动态拨号VPS,海外云手机,海外云服务器,海外服务器租用托管等。
vb2010属于VB.Net,VB.Net中使用如下方法:
Application.StartupPath
'获取当前程序路径,如果你的程序在C:\App\,结果为
C:\App
AppDomain.CurrentDomain.SetupInformation.ApplicationBase
'获取当前程序路径,如果你的程序在C:\App\,结果为
C:\App\
'后者比前者的结果会多一个"\"
System.Environment.CurrentDirectory
这才是vb.net的获取程序运行路径的方法
你可以将应用程序及需要的参数文件放在同一个目录下,这样你就是移动到别的电脑上也是一样可以执行的.
如:
...\app.exe
...\文件.flv
先取得参数文件的路径
Dim curFile as string
curFile=App.Path + "\文件.flv"
...
curFile="app.exe "+curFile '转换为一字符串,注意 app.exe 后面的空格!
然后再执行你的 Shell curFile,vbNormalFocus
1、如果你的窗体就是你当前工程这个EXE本身的窗体,
那么窗体所在的路径就是工程的启动路径,用下面的语句获取:
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体,那么你既然能LoadLibrary,就应该知道它的路径,所以不用问了。
path=mid(wscript.scriptfullname,1,len(wscript.scriptfullname)
-
instr(1,strreverse(wscript.scriptfullname),"\")
+
1)
msgbox
path,,"你的存储路径是:"
这样可以获取文件存储的绝对路径,并且用msgbox显示出来
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方,所以进行了全盘搜索,歌曲的所有地址路径在数组my_path中