ファイルの拡張子を取得する

今回は拡張子の取得についてメモしておきます。

FileSystemObjectを使った拡張子取得

GetExtensionNameメソッドを使います。

実行プログラム

Sub Sample7_12_1()

    Dim objFSO   As Object
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    MsgBox objFSO.GetExtensionName("C:\excelmemo\Sample7_12.txt")

End Sub

Sub Sample7_12_1()

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

MsgBox objFSO.GetExtensionName("C:\excelmemo\Sample7_12.txt")

End Sub

実行条件

実行結果

文字列操作で拡張子を取得する

実行プログラム

Sub Sample7_12_2()

    Dim varArray   As Variant
    Dim strName    As String
    
    varArray = Split("C:\excelmemo\Sample7_12.txt", "\")  ' フォルダ、ファイル名を分解
    
    strName = varArray(UBound(varArray))                  ' 配列の最終(ファイル名)を取得
    
    MsgBox Right(strName, Len(strName) - InStr(strName, "."))

End Sub

Sub Sample7_12_2()

Dim varArray As Variant

Dim strName As String

varArray = Split("C:\excelmemo\Sample7_12.txt", "\") ' フォルダ、ファイル名を分解

strName = varArray(UBound(varArray)) ' 配列の最終(ファイル名)を取得

MsgBox Right(strName, Len(strName) - InStr(strName, "."))

End Sub

“.”の位置を探し、そこより後ろの部分を拡張子として取得しています。