重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这个就是你要的了!希望你能用!
创新互联是一家专注于网站设计制作、做网站与策划设计,宝安网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:宝安等地区。宝安做网站价格咨询: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:\")函数获得一个存放D盘目录文件的字符串数组
代码:
For Each item As String In IO.Directory.GetFiles("D:\")
ListBox1.Items.Add(item)
Next
运行之后,ListBox1里就会有这些文件