ファイルが入っているフォルダ名称を取得

ファイルリストを作ろうと思って、Path.Get メソッドいろいろ なんか見つつコチョコチョ作ってたんだ。

Function GetFolderName(ByVal FullPath As String)
	Dim temStr As String = GetDirectoryName(FullPath) 'Cドライブ直下だと""になる
	Dim str As String
	If temStr Is Nothing Then
		'ドライブレターを取得する処理を・・・
	Else
		str = Right(temStr, Len(temStr) - InStrRev(temStr, "\"))
	End If
	Return str
End Function

するとそこに、oti君がやって来た。
oti「何やってるんですか？」
オレ「フォルダ名称取得ファンクション作ってるんだがや。」
oti「それって・・・こんだけでイケますよ。」
オレ「ええぇぇぇ〜〜〜〜〜」

Dim info As New System.IO.FileInfo(FullPath)
str = info.Directory.Name

パスからファイル名・ディレクトリ名を取得

orz こ、こんだけか・・・