フォルダ名称を取得

'ファイルのフルパスから取得
Dim FullPath As String = "C:\test1\test2\test3\test4\test5\test6\test7\test8\sample.text"
Dim FolderName As String = FullPath.Split("\")(FullPath.Split("\").Count - 2)
Console.WriteLine(FolderName)
'test8

'フォルダのフルパスから取得
'FolderName = FullPath.Substring(FullPath.LastIndexOf("\") + 1, FullPath.Length - FullPath.LastIndexOf("\") - 1)
FolderName = FullPath.Substring(FullPath.LastIndexOf("\") + 1)
Console.WriteLine(FolderName)
'test8