vb.net获取父目录 vbnet获取当前目录下文件名

vb.net如何获得某个电脑中D盘根目录的文件

用Io.Directory.GetFiles("D:\")函数获得一个存放D盘目录文件的字符串数组

创新互联公司自2013年起，先为桑日等服务建站，桑日等地企业，进行企业商务咨询服务。为桑日企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

代码：

For Each item As String In IO.Directory.GetFiles("D:\")

ListBox1.Items.Add(item)

Next

运行之后，ListBox1里就会有这些文件

在VB.NET中如何取得当前目录的路径?

命名空间:System.Windows.Forms

Application.StartupPath 属性(返回String)

获取启动了应用程序的可执行文件的路径，不包括可执行文件的名称。

Application.ExecutablePath 属性(返回String)

获取启动了应用程序的可执行文件的路径，包括可执行文件的名称。

vb.net 获取目录下文件夹名不包括隐藏文件夹

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

VB.NET获取目录文件夹名称

先用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 任务：

怎样在vb.net中用button打开程序运行的根目录

这个就是你要的了！希望你能用！

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 写到代码最上边就好了！

VB.NET TREEVIEW获取父节点

软糖来回答罗。

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