大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用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 写到代码最上边就好了!