Dim Fs As New List(Of String) For Each temFile As String In Fs If Fs.Count = Fs.IndexOf(temFile) + 1 Then 'ここに処理 End If Next リストに6つのアイテムがある場合 Fs.Count = 6 Fs.IndexOf(6番目のアイテム) = 5 なので気をつけよう。 （Index は 0…

Dim sss As String = "C:\test001\41900709048-01.pdf" Console.WriteLine(Path.GetDirectoryName(sss)) Console.WriteLine(Path.GetFileName(sss)) Console.WriteLine(Path.GetExtension(sss)) Console.WriteLine(Path.GetFileNameWithoutExtension(sss)) C…