VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數(shù)獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：

創(chuàng)新互聯(lián)建站服務(wù)項目包括周寧網(wǎng)站建設(shè)、周寧網(wǎng)站制作、周寧網(wǎng)頁制作以及周寧網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，周寧網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到周寧省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

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 任務(wù)：

在VB.NET中如何取得當(dāng)前目錄的路徑?

命名空間:System.Windows.Forms

Application.StartupPath 屬性(返回String)

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

Application.ExecutablePath 屬性(返回String)

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

vb.net 如何將長文件路徑轉(zhuǎn)換成短文件路徑？

病情分析：

你好，你說的孩子上述癥狀考慮孩子有可能還是口腔皰疹的原因?qū)е碌?，這種疾病屬于病毒感染導(dǎo)致的。

指導(dǎo)意見：

建議你最好是在給孩子用抗病毒的藥物和頭孢類的抗生素輸液治療效果是比較好的，治療期間多注意給孩子喝一些水和多休息幾天，這樣疾病就會好轉(zhuǎn)了，祝早日康復(fù)。

病情分析：

您好，寶寶舌頭上有白泡，而且發(fā)熱考慮應(yīng)該是病毒或者細菌感染引起的口腔皰疹。

指導(dǎo)意見：

如果寶寶精神狀態(tài)好，可以口服抗病毒和消炎藥物抗感染治療，多喝水，用益口或者康復(fù)新液涂在口腔皰疹處促進愈合，減輕疼痛，多喝水，體溫超過38.5度時口服退熱藥物退熱。如果寶寶精神不好，或者高熱不退，最好去醫(yī)院化驗血常規(guī)。

病情分析：

小孩出現(xiàn)了舌頭有起白泡，有發(fā)熱的情況，可能患急性上呼吸道感染，主要是皰疹病毒感染引起的，與受涼，吃了上火食品有關(guān)。

指導(dǎo)意見：

建議最好做個血法規(guī)檢查，明確診斷，多喝水，避免受涼，多吃蔬菜水果汁，忌吃上火食品，可以口服利巴韋林顆粒，雙黃連口服液，美林，優(yōu)卡丹治療。

病情分析：

寶寶出現(xiàn)舌頭皰疹發(fā)熱考慮皰疹性口腔炎的

指導(dǎo)意見：

寶寶的癥狀可以服用利巴韋林顆粒和蒲地藍口服液治療，注意多喝水，禁忌辛辣食物

vb.net從文件路徑中獲取文件名

獲取方法，參考實例如下：

'獲取路徑名各部分: 如： c:\dir1001\aaa.txt

'獲取路徑路徑 c:\dir1001\

Public Function GetFileName(FilePathFileName As String) As String '獲取文件名 aaa.txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

GetFileName Mid(FilePathFileName, J + 1, i)

End Function

''獲取路徑路徑 c:\dir1001\

Public Function GetFilePath(FilePathFileName As String) As String '獲取路徑路徑 c:\dir1001\

On Error Resume Next

Dim J As Integer

J InStrRev(FilePathFileName, "\")

GetFilePath Mid(FilePathFileName, 1, J)

End Function

'獲取文件名但不包括擴展名 aaa

Public Function GetFileNameNoExt(FilePathFileName As String) As String '獲取文件名但不包括擴展名 aaa

On Error Resume Next

Dim i As Integer, J As Integer, k As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

k InStrRev(FilePathFileName, ".")

If k 0 Then

GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)

Else

GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)

End If

End Function

'＝＝＝＝＝ '獲取擴展名 .txt

Public Function GetFileExtName(FilePathFileName As String) As String '獲取擴展名 .txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, ".")

If J 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function