フルパスからファイル名を取得する関数です。 c:\aaa\bbb\ccc.txt の場合、 ccc.txt を取得します。
関数概要
- 関数名: FNCFullPathToFilePath
- 入力引数; P_IN_FullPath ( String 型) : ファイル名を取得するフルパスを指定します。
- 出力引数: P_OUT_FileName ( String 型) : ファイル名が設定されます。
実行例
- 準備中
ダウンロード
UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。
以下からダウンロードが可能です。
使用方法
- 準備中
ソースコード
'-----------------------------------------------------------------
' フルパスからファイル名を取得する
'-----------------------------------------------------------------
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
ソースコード説明
- 準備中
|