十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用Io.Directory.GetFiles("D:\")函数获得一个存放D盘目录文件的字符串数组
创新互联公司自2013年起,先为桑日等服务建站,桑日等地企业,进行企业商务咨询服务。为桑日企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
代码:
For Each item As String In IO.Directory.GetFiles("D:\")
ListBox1.Items.Add(item)
Next
运行之后,ListBox1里就会有这些文件
命名空间:System.Windows.Forms
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径,不包括可执行文件的名称。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径,包括可执行文件的名称。
Vb.net获取某个目录下文件夹名称(不包含隐藏文件夹)实现代码如下:
Dim dir As New DirectoryInfo("D:\")
For Each d As DirectoryInfo In dir.GetDirectories
ComboBox1.Items.Add(d.Name)
Next
dim finfo as new fileinfo(d.name)
if (finfo.attributes and FileAttributes.Hidden)FileAttributes.Hidden then
ComboBox1.Items.Add(d.Name)
end if
先用System.IO.Directory.GetDirectories函数获取子目录的名称(包括其路径),再用System.IO.Path.GetFileName获取子目录的名称。下面是代码:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each s In System.IO.Directory.GetDirectories("C:\Windows")
Console.WriteLine(System.IO.Path.GetFileName(s))
Next
End Sub
下面是部分输出:
Application Data
AppPatch
assembly
BOCNET
Boot
Branding
ConfigSetRoot
Cursors
Debug
DigitalLocker
Downloaded Installations
Downloaded Program Files
ehome
en-US
Fonts
Globalization
Help
...
可能有更简洁的方法,你可以到MSDN看看
System.IO.Directory.GetDirectories:
System.IO.Path.GetFileName:
通用 I/O 任务:
这个就是你要的了!希望你能用!
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 写到代码最上边就好了!
软糖来回答罗。
treenode只有text和name两个string属性。
所以给你写的函数是返回string数组,如需要可自行转换类型Integer
Private Function GetParents(ByVal node As TreeNode) As String()
Dim list As New List(Of String)
Do Until node.Parent Is Nothing
node = node.Parent
list.Add(node.Text)
Loop
Return list.ToArray()
End Function
下面是Listbox1的测试代码,把父节点都添加到Listbox1(在Click后)
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
Dim k = GetParents(TreeView1.Nodes(0).Nodes(0).Nodes(0).Nodes(0))
ListBox1.Items.AddRange(k)
End Sub