フォルダ名称を取得
'ファイルのフルパスから取得 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