ファイル関連：フルパスからファイル名・フォルダ名・拡張子を取り出す（IO.Path）

VB2008でフルパス名からファイル名のみやフォルダ名のみを取り出す実行例サンプルです。

ファイル関連へ

フルパス名からファイル名のみやフォルダ名のみなどを取り出したい場合があります。
取り出すには「IO.Path」を使用します。
その方法です。

ファイル名のみの取り出し：　IO.Path.GetFileName(フルパス名)

フォルダ名のみの取り出し：　IO.Path.GetDirectoryName(フルパス名)

拡張子を除くファイル名のみの取り出し：　IO.Path.GetFileNameWithoutExtension(フルパス名)

'拡張子のみの取り出し：　IO.Path.GetExtension(フルパス名)

■実行画面
「Button1」ボタンをクリックすると、フォルダ選択ダイアログが開きます。
ファイルを選択すると上から
1）フルパス名
2）ファイル名のみ
3）フォルダ名のみ
4）拡張子を除くファイル名
5）拡張子のみ
を表示します。
ファイル名の分解フォーム

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
Dim fname As String

With ofd
'タイトル
.Title = "開くファイルを選択してください"
'初期のファイル名
.FileName = ""
'フィルターの何番目を既定値にするか
.FilterIndex = 1
'フィルター：ファイルの種類
'.Filter = "画像ﾌｧｲﾙ名(*.BMP;*.JPG;*.PNG)|*.BMP;*.JPG;*.PNG"
'初期のフォルダー
.InitialDirectory = "C:\Program Files\Microsoft Visual Studio 9.0\"
End With

'「ファイルを開く」ダイアログを表示。
If ofd.ShowDialog() = DialogResult.OK Then
'選択されたファイル名を表示
fname = ofd.FileName
Label1.Text = fname & vbNewLine

'ファイル名
Label1.Text = Label1.Text & vbNewLine & vbNewLine & IO.Path.GetFileName(fname)

'フォルダ名
Label1.Text = Label1.Text & vbNewLine & vbNewLine & IO.Path.GetDirectoryName(fname)

'拡張子を除くファイル名
Label1.Text = Label1.Text & vbNewLine & vbNewLine & IO.Path.GetFileNameWithoutExtension(fname)

'拡張子
Label1.Text = Label1.Text & vbNewLine & vbNewLine & IO.Path.GetExtension(fname)

End If

End Sub
End Class

Visual Basic 2008 Express Edition実践入門