GetFileName

Summary

指定されたファイルパスからファイル名を取得するための関数です。

Function GetFileName(filePath As String, Optional ExtensionFlg As Boolean = True) As String
'引数で指定されたファイル名を取得する

'Arg     ExtensionFlg
'    True：Returnに拡張子あり
'     False:Returnに拡張子なし

    If ExtensionFlg = True Then
        GetFileName = Mid(filePath, InStrRev(filePath, "\") + 1)
    Else
        GetFileName = Replace(filePath, Left(filePath, InStrRev(filePath, "\")), "")
        GetFileName = Replace(GetFileName, GetExtension(filePath), "")
        GetFileName = Left(GetFileName, Len(GetFileName) - 1)
    End If
End Function

説明

関数の第1引数には、ファイルのパスを指定します。第2引数 ExtensionFlg はオプションの引数で、 デフォルトでは True となっています。

この引数が True の場合、取得するファイル名に拡張子が含まれます。
False の場合は、拡張子を含まないファイル名が取得されます。

関数では、filePath の中からファイル名部分を取り出して返します。
ExtensionFlg が True の場合は、ファイルパスから最後のバックスラッシュ以降の文字列が取得されます。 False の場合は、拡張子を除いたファイル名が取得されます。

引数

• filePath (String型): ファイル名を取得するファイルのパス
• ExtensionFlg (Boolean型, オプション):
  ファイル名に拡張子を含めるかどうかを指定するフラグ。デフォルトは True。

戻り値

• 戻り値の型: String型 (ファイル名)

Examples

使用例として、関数 GetFileName を呼び出して指定されたファイルのファイル名を取得する方法が示されています。 関数にファイルパスを渡し、結果を適切な変数に格納します。

拡張子を含むファイル名を取得する場合は、第2引数を省略するか True を指定します。
拡張子を含まないファイル名を取得する場合は、第2引数に False を指定します。

' ファイル名を取得する
Dim fileNameWithExtension As String
Dim fileNameWithoutExtension As String

' 拡張子を含むファイル名を取得
fileNameWithExtension = GetFileName("C:\path\to\file.txt")

' 拡張子を含まないファイル名を取得
fileNameWithoutExtension = GetFileName("C:\path\to\file.txt", False)