用Io.Directory.GetFiles("D:\")函数获得一个存放D盘目录文件的字符串数组
成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站建设、网站设计、东海网络推广、成都小程序开发、东海网络营销、东海企业策划、东海品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供东海建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
代码：
For Each item As String In IO.Directory.GetFiles("D:\")
ListBox1.Items.Add(item)
Next
运行之后，ListBox1里就会有这些文件
Imports System.IO '引用命名空间
Dim AppPath As String = Directory.GetCurrentDirectory() '获取应用程序的当前工作目录
Process.Start(AppPath) '打开当前目录
这个就是你要的了！希望你能用！
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 写到代码最上边就好了！
