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

フルパスからファイル名を取得する関数です。 c:\aaa\bbb\ccc.txt の場合、 ccc.txt を取得します。

関数概要

• 関数名： FNCFullPathToFilePath
• 入力引数； P_IN_FullPath ( String 型) : ファイル名を取得するフルパスを指定します。
• 出力引数： P_OUT_FileName ( String 型) ： ファイル名が設定されます。

実行例

• 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

• 準備中

ソースコード

'-----------------------------------------------------------------
' フルパスからファイル名を取得する
'-----------------------------------------------------------------
Function FNCFullPathToFilePath(P_IN_FullPath As String, P_OUT_FileName As String) As Integer
On Error GoTo ErrorHandler
    FNCFullPathToFilePath = Me.ReturnError
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    P_OUT_FileName = FSO.GetFileName(P_IN_FullPath)
    Set FSO = Nothing
    FNCFullPathToFilePath = Me.ReturnNomal
    Exit Function
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
    FNCFullPathToFilePath = Err.Number
    Exit Function
End Function

ソースコード説明

• 準備中

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ] 価格：1944円（税込、送料無料) (2019/7/23時点) 楽天で購入