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中如何取得當前目錄的路徑?

命名空間:System.Windows.Forms

Application.StartupPath 屬性(返回String)

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

Application.ExecutablePath 屬性(返回String)

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

vb.net 如何將長文件路徑轉換成短文件路徑？

病情分析：

你好，你說的孩子上述癥狀考慮孩子有可能還是口腔皰疹的原因導致的，這種疾病屬于病毒感染導致的。

指導意見：

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

病情分析：

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

指導意見：

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

病情分析：

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

指導意見：

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

病情分析：

寶寶出現舌頭皰疹發熱考慮皰疹性口腔炎的

指導意見：

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

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

新聞名稱：vb.net分離路徑名 vbnet split
當前地址：http://vcdvsql.cn/article2/ddcsdic.html

成都網站建設公司_創新互聯，為您提供網站改版、網頁設計公司、全網營銷推廣、搜索引擎優化、網站策劃、企業網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯