vb.net如何獲得某個電腦中D盤根目錄的文件

用Io.Directory.GetFiles("D:\")函數(shù)獲得一個存放D盤目錄文件的字符串數(shù)組

創(chuàng)新互聯(lián)公司自2013年起，先為桑日等服務建站，桑日等地企業(yè)，進行企業(yè)商務咨詢服務。為桑日企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

代碼：

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

ListBox1.Items.Add(item)

Next

運行之后，ListBox1里就會有這些文件

在VB.NET中如何取得當前目錄的路徑?

命名空間:System.Windows.Forms

Application.StartupPath 屬性(返回String)

獲取啟動了應用程序的可執(zhí)行文件的路徑，不包括可執(zhí)行文件的名稱。

Application.ExecutablePath 屬性(返回String)

獲取啟動了應用程序的可執(zhí)行文件的路徑，包括可執(zhí)行文件的名稱。

vb.net 獲取目錄下文件夾名不包括隱藏文件夾

Vb.net獲取某個目錄下文件夾名稱（不包含隱藏文件夾）實現(xiàn)代碼如下：

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函數(shù)獲取子目錄的名稱（包括其路徑），再用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獲取父節(jié)點

軟糖來回答羅。

treenode只有text和name兩個string屬性。

所以給你寫的函數(shù)是返回string數(shù)組，如需要可自行轉換類型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的測試代碼，把父節(jié)點都添加到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