vb（2017）打開程序所在文件夾的文件

我的是VB.NET 2010：在編程環(huán)境中，雙擊窗體右邊的“解決方案資源管理器”里的

十年的港閘網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。成都營銷網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整港閘建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“港閘網(wǎng)站設(shè)計(jì)”,“港閘網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

My Project，見圖：

出現(xiàn)下圖：

再單擊圖中的“編譯”，出現(xiàn)下圖：

注意，可以根據(jù)你的需要修改“生成輸出路徑”，這里我把要啟動的程序文件.exe，復(fù)制到這個(gè)文件路徑的文件夾里。

下面我的實(shí)例是啟動windows的記事本程序，我把這個(gè)文件NOTEPAD.EXE復(fù)制到本工程的debug文件夾里。

代碼如下：啟動記事本程序，并以默認(rèn)窗體具有焦點(diǎn)的方式出現(xiàn)。

Dim?i?As?Integer

i?=?Shell(Application.StartupPath??"\NOTEPAD.EXE",?AppWinStyle.NormalFocus)

如果想在啟動該程序的同時(shí)，打開一個(gè)相關(guān)的.txt文檔，見下代碼：

注意，把文檔abc.txt也復(fù)制到相應(yīng)文件夾里。

Dim?i?As?Integer

i?=?Shell(Application.StartupPath??"\NOTEPAD.EXE?abc.txt",?AppWinStyle.MaximizedFocus)

本例將以最大化窗口方式打開。

如何打開指定路徑下的文件 VB.NET (路徑已經(jīng)知道）

Path：是初始目錄的路徑

Private Sub WriteArray(ByVal Path As String)

'寫入數(shù)組代碼在這里，直接將Path寫到數(shù)組就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '遞歸

Next

End Sub

如果子目錄較多那么遞歸會比較費(fèi)時(shí)間，在調(diào)用遞歸前加入application.doevent就行了，這樣在應(yīng)對大遞歸時(shí)不會死機(jī)。

至于數(shù)組嘛使用 arraylist 最好了。

回答補(bǔ)充：

把遞歸去掉就行了??！

VB.net怎么彈出文件夾路徑選擇框

選擇文件夾??在工具箱?-?對話框?里選擇?FolderBrowserDialog?添加?到設(shè)計(jì)器中

然后?代碼寫在??按鈕事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text?=FolderBrowserDialog1.SelectedPath

選擇文件?在工具箱?-?對話框?里選擇?OpenFileDialog

把?OpenFileDialog1.ShowDialog()

TextBox1.Text?=?OpenFileDialog1.FileName

寫到按鈕事件下

如圖

點(diǎn)擊按鈕會彈出?通用對話框??選擇好路徑后?確定?，編輯框里就會顯示選擇的路徑

vb.net 打開文件夾

System.Windows.Forms.OpenFileDialog

System.Windows.Forms.SaveFileDialog

System.Windows.Forms.FolderBrowserDialog

以上三個(gè)類均能夠很好的解決樓主的需求。

具體的請lz自己查msdn