這個就是你要的了!希望你能用!
創(chuàng)新互聯(lián)是一家專注于網(wǎng)站設計制作、做網(wǎng)站與策劃設計,寶安網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設10余年,網(wǎ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里就會有這些文件