2011-07-06から1日間の記事一覧
LastIndexOf と LastIndexOfAny を使うとイイよ。 Dim FilePath As String = "G:\sample1\sample2\sample3\test.txt" Dim UpDir As String = Path.GetDirectoryName(FilePath) 'G:\sample1\sample2\sample3 Dim tempCount As Integer = UpDir.LastIndexOf("\…