這個就是你要的了!希望你能用!

創(chuàng)新互聯(lián)是一家專注于網(wǎng)站設(shè)計制作、做網(wǎng)站與策劃設(shè)計,寶安網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務涵蓋:寶安等地區(qū)。寶安做網(wǎng)站價格咨詢:18982081108
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應用程序的當前工作目錄
Process.Start(AppPath) '打開當前目錄
End Sub
忘了說,這個要引用命名空間!
把Imports System.IO 寫到代碼最上邊就好了!
Imports System.IO '引用命名空間
Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應用程序的當前工作目錄
Process.Start(AppPath) '打開當前目錄
用Io.Directory.GetFiles("D:\")函數(shù)獲得一個存放D盤目錄文件的字符串數(shù)組
代碼:
For Each item As String In IO.Directory.GetFiles("D:\")
ListBox1.Items.Add(item)
Next
運行之后,ListBox1里就會有這些文件
網(wǎng)站標題:關(guān)于vb.net程序根目錄的信息
文章出自:http://chinadenli.net/article8/hjesop.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、面包屑導航、云服務器、網(wǎng)站排名、網(wǎng)站改版、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)