選擇文件夾??在工具箱?-?對(duì)話框?里選擇?FolderBrowserDialog?添加?到設(shè)計(jì)器中
專注于為中小企業(yè)提供成都做網(wǎng)站、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)平橋免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了超過千家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對(duì)話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點(diǎn)擊按鈕會(huì)彈出?通用對(duì)話框??選擇好路徑后?確定?,編輯框里就會(huì)顯示選擇的路徑
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
如果子目錄較多那么遞歸會(huì)比較費(fèi)時(shí)間,在調(diào)用遞歸前加入application.doevent就行了,這樣在應(yīng)對(duì)大遞歸時(shí)不會(huì)死機(jī)。
至于數(shù)組嘛使用 arraylist 最好了。
回答補(bǔ)充:
把遞歸去掉就行了啊!
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三個(gè)類均能夠很好的解決樓主的需求。
具體的請(qǐng)lz自己查msdn
1、如果你的窗體就是你當(dāng)前工程這個(gè)EXE本身的窗體,
那么窗體所在的路徑就是工程的啟動(dòng)路徑,用下面的語句獲?。?/p>
AppPath=Application.StartupPath
2、如果你的窗體是你自己LoadLibrary的某個(gè)DLL的窗體,那么你既然能LoadLibrary,就應(yīng)該知道它的路徑,所以不用問了。
一種采用絕對(duì)路徑比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二種采用當(dāng)前exe所在路徑
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
比如你雙擊打開123.xd文件后,可以在內(nèi)存進(jìn)程中獲取123.xd這個(gè)進(jìn)程,從而獲得123.xd文件的路徑