【VB.NET】フルパスからファイル名・拡張子を取得する

「フルパスが分かるから、ファイル名だけが欲しい！」「とあるファイルの拡張子を知りたい！」という場合があると思います。そんな時は「System.IO.Pathクラス」のメソッドを使用することで解決できます。

【スポンサーリンク】

フルパスからファイル名を取得する
1. 拡張子ありファイル名を取得する
2. 拡張子なしファイル名を取得する
フルパスから拡張子を取得する
編集後記
参考サイト
鉄道記事も書いてます！

フルパスからファイル名を取得する

フルパスからファイル名を取得する方法は2種類あります。「ファイル名+拡張子」を取得する方法と、「ファイル名」のみを取得する方法です。使い方は同じなので、目的によって使い分けて下さい。

例として、ファイルのパスやファイル名を入れて実行ボタンを押下すると、ファイル名を取得する簡単なフォームを作成しました。以降のソースコードは実行ボタン押下のクリックイベント内に記載するソースコードです。

拡張子ありファイル名を取得する

拡張子ありのファイル名を取得する場合、System.IO.PathクラスのGetFileNameメソッドを使用します。使用方法はとても簡単で、GetFileNameメソッドの引数にファイルパスを渡すだけです。使用例は以下のソースコードです。

Private Sub cmdGetFileName_Click(sender As Object, e As EventArgs) Handles cmdGetExtension.Click
    Dim strGetName As String = Nothing
    Try

        'ファイル名を取得する（拡張子あり）
        strGetName = System.IO.Path.GetFileName(txtPath.Text)
        MessageBox.Show(strGetName, "ファイル名（拡張子あり）", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

実行すると、以下のメッセージボックスが出てきます。

ちゃんと拡張子ありのファイル名が取得できていますね。

拡張子なしファイル名を取得する

拡張子なしのファイル名を取得する場合、System.IO.PathクラスのGetFileNameWithoutExtensionメソッドを使用します。使い方はGetFileNameメソッドと同じで、GetFileNameWithoutExtensionメソッドの引数にファイルパスを渡すだけです。使用例は以下のソースコードです。

Private Sub cmdGetFileNameWithoutExtension_Click(sender As Object, e As EventArgs) Handles cmdGetExtension.Click
    Dim strGetName As String = Nothing
    Try

        'ファイル名を取得する（拡張子なし）
        strGetName = System.IO.Path.GetFileNameWithoutExtension(txtPath.Text)
        MessageBox.Show(strGetName, "ファイル名（拡張子なし）", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

実行すると、メッセージボックスが出てきます。

「test.txt」というファイル名ですが、ちゃんと拡張子を含まない「test」が表示されています。尚、フルパスでなくても、「ファイル名+拡張子」の記載であればファイル名のみ取得が可能です。

【スポンサーリンク】

フルパスから拡張子を取得する

拡張子ありのファイル名、拡張子なしのファイル名、と来たら、今度は拡張子のみ取得したいですね。System.IO.Pathクラスに、拡張子を取得するメソッドが用意されています。拡張子のみを取得したい場合は、GetExtensionメソッドを使用します。使用例は以下のソースコードです。

Private Sub cmdGetExtension_Click(sender As Object, e As EventArgs) Handles cmdGetExtension.Click
    Dim strGetName As String = Nothing
    Try

        '拡張子を取得する
        strGetName = System.IO.Path.GetExtension(txtPath.Text)
        MessageBox.Show(strGetName, "拡張子", MessageBoxButtons.OK, MessageBoxIcon.Information)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

実行すると、メッセージボックスが出てきます。