我没有设置关联，只是把文件拖到程序文件上打开，应该是一样的。
创新互联致力于网站制作、成都网站建设,成都网站设计,集团网站建设等服务标准化，推过标准化降低中小企业的建站的成本，并持续提升建站的定制化服务水平进行质量交付，让企业网站从市场竞争中脱颖而出。 选择创新互联，就选择了安全、稳定、美观的网站建设服务！
主要是看程序启动时的命令行参数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中
