Skip to content

GetExtension

Summary

指定されたファイルの拡張子を取得するための関数です。

1
2
3
4
5
6
7
Function GetExtension(filePath As String) As String
'引数で指定されたファイルの拡張子を返す

Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    GetExtension = fso.GetExtensionName(filePath)
End Function

説明

この関数は、指定されたファイルのパスから拡張子を抽出するために使用されます。
関数では、Scripting.FileSystemObject オブジェクトを作成し、 その GetExtensionName メソッドを使用して指定されたファイルの拡張子を取得します。
関数の戻り値として、取得した拡張子が返されます。

引数

  • filePath (String型): 拡張子を取得するファイルのパス

戻り値

  • 戻り値の型: String型 (ファイルの拡張子)

Examples

使用例として、関数 GetExtension を呼び出して指定されたファイルの拡張子を取得する方法が示します。 関数に対象ファイルのパスを渡し、結果を fileExtension 変数に格納します。

1
2
3
' ファイルの拡張子を取得する
Dim fileExtension As String
fileExtension = GetExtension("C:\path\to\file.txt")