先用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 任务：
命名空间:System.Windows.Forms
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径，不包括可执行文件的名称。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径，包括可执行文件的名称。
病情分析：
你好，你说的孩子上述症状考虑孩子有可能还是口腔疱疹的原因导致的，这种疾病属于病毒感染导致的。
指导意见：
建议你最好是在给孩子用抗病毒的药物和头孢类的抗生素输液治疗效果是比较好的，治疗期间多注意给孩子喝一些水和多休息几天，这样疾病就会好转了，祝早日康复。
病情分析：
您好，宝宝舌头上有白泡，而且发热考虑应该是病毒或者细菌感染引起的口腔疱疹。
指导意见：
如果宝宝精神状态好，可以口服抗病毒和消炎药物抗感染治疗，多喝水，用益口或者康复新液涂在口腔疱疹处促进愈合，减轻疼痛，多喝水，体温超过38.5度时口服退热药物退热。如果宝宝精神不好，或者高热不退，最好去医院化验血常规。
病情分析：
小孩出现了舌头有起白泡，有发热的情况，可能患急性上呼吸道感染，主要是疱疹病毒感染引起的，与受凉，吃了上火食品有关。
指导意见：
建议最好做个血法规检查，明确诊断，多喝水，避免受凉，多吃蔬菜水果汁，忌吃上火食品，可以口服利巴韦林颗粒，双黄连口服液，美林，优卡丹治疗。
病情分析：
宝宝出现舌头疱疹发热考虑疱疹性口腔炎的
指导意见：
宝宝的症状可以服用利巴韦林颗粒和蒲地蓝口服液治疗，注意多喝水，禁忌辛辣食物
获取方法，参考实例如下：
'获取路径名各部分: 如： 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
重庆分公司
重庆分公司
