這個就是你要的了!希望你能用!
樂昌ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應(yīng)用程序的當(dāng)前工作目錄
Process.Start(AppPath) '打開當(dāng)前目錄
End Sub
忘了說,這個要引用命名空間!
把Imports System.IO 寫到代碼最上邊就好了!
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)時間,在調(diào)用遞歸前加入application.doevent就行了,這樣在應(yīng)對大遞歸時不會死機(jī)。
至于數(shù)組嘛使用 arraylist 最好了。
回答補(bǔ)充:
把遞歸去掉就行了啊!
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三個類均能夠很好的解決樓主的需求。
具體的請lz自己查msdn