十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
我沒有設(shè)置關(guān)聯(lián),只是把文件拖到程序文件上打開,應(yīng)該是一樣的。

創(chuàng)新互聯(lián)致力于網(wǎng)站制作、成都網(wǎng)站建設(shè),成都網(wǎng)站設(shè)計(jì),集團(tuán)網(wǎng)站建設(shè)等服務(wù)標(biāo)準(zhǔn)化,推過標(biāo)準(zhǔn)化降低中小企業(yè)的建站的成本,并持續(xù)提升建站的定制化服務(wù)水平進(jìn)行質(zhì)量交付,讓企業(yè)網(wǎng)站從市場競爭中脫穎而出。 選擇創(chuàng)新互聯(lián),就選擇了安全、穩(wěn)定、美觀的網(wǎng)站建設(shè)服務(wù)!
主要是看程序啟動(dòng)時(shí)的命令行參數(shù)My.Application.CommandLineArgs,里面包括要打開的文件路徑。
在Sub Main 或者 啟動(dòng)窗口的Load事件里添加代碼
If My.Application.CommandLineArgs.Count 0 AndAlso My.Computer.FileSystem.FileExists(My.Application.CommandLineArgs(0)) Then‘參數(shù)不為空且文件存在
Dim s As New IO.StreamReader(My.Application.CommandLineArgs(0))
MsgBox(s.ReadToEnd)
End If
你還可以處理更多的命令行參數(shù)。
關(guān)于命令行參數(shù)
保存路徑是當(dāng)前可執(zhí)行程序所在的文件夾。比如exe在d:\work\c\test\demo.exe,哪么文件默認(rèn)保存到d:\work\c\test,利用VB文件夾列表框控件設(shè)置文件夾路徑的方法:
1、新建一個(gè)標(biāo)準(zhǔn)工程。
2、單擊工具箱中的“文件列表框”控件,在窗體上拖一個(gè)出來。
3、單擊已經(jīng)拖好的文件列表框,在彈出的代碼編輯區(qū)中鍵入如下代碼:Dir1.Path="E:\2003\WXPE",即就是要求顯示E盤下的2003文件夾中的WXPE文件。
4、退出代碼編輯窗口,單擊菜單上三角執(zhí)行按鈕,運(yùn)行該程序。
5、這時(shí)會(huì)便會(huì)發(fā)現(xiàn)之前的文件夾路徑已經(jīng)改變到剛才設(shè)置的E:\2003\WXPE的上來了。
VS2005為例:
我的文檔--Visual Studio 2005----Projects
在這面找到你的項(xiàng)目,打開項(xiàng)目文件夾,再打開項(xiàng)目文件夾,以WindowsApplication1為項(xiàng)目名為例:
我的文檔\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因?yàn)橛锌赡茉诙鄠€(gè)地方,所以進(jìn)行了全盤搜索,歌曲的所有地址路徑在數(shù)組my_path中