重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
我没有设置关联,只是把文件拖到程序文件上打开,应该是一样的。
创新互联致力于网站制作、成都网站建设,成都网站设计,集团网站建设等服务标准化,推过标准化降低中小企业的建站的成本,并持续提升建站的定制化服务水平进行质量交付,让企业网站从市场竞争中脱颖而出。 选择创新互联,就选择了安全、稳定、美观的网站建设服务!
主要是看程序启动时的命令行参数My.Application.CommandLineArgs,里面包括要打开的文件路径。
在Sub Main 或者 启动窗口的Load事件里添加代码
If My.Application.CommandLineArgs.Count 0 AndAlso My.Computer.FileSystem.FileExists(My.Application.CommandLineArgs(0)) Then‘参数不为空且文件存在
Dim s As New IO.StreamReader(My.Application.CommandLineArgs(0))
MsgBox(s.ReadToEnd)
End If
你还可以处理更多的命令行参数。
关于命令行参数
保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo.exe,哪么文件默认保存到d:\work\c\test,利用VB文件夹列表框控件设置文件夹路径的方法:
1、新建一个标准工程。
2、单击工具箱中的“文件列表框”控件,在窗体上拖一个出来。
3、单击已经拖好的文件列表框,在弹出的代码编辑区中键入如下代码:Dir1.Path="E:\2003\WXPE",即就是要求显示E盘下的2003文件夹中的WXPE文件。
4、退出代码编辑窗口,单击菜单上三角执行按钮,运行该程序。
5、这时会便会发现之前的文件夹路径已经改变到刚才设置的E:\2003\WXPE的上来了。
VS2005为例:
我的文档--Visual Studio 2005----Projects
在这面找到你的项目,打开项目文件夹,再打开项目文件夹,以WindowsApplication1为项目名为例:
我的文档\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方,所以进行了全盘搜索,歌曲的所有地址路径在数组my_path中