引数で指定したフルパスからフォルダパスを抽出します。 c:\aaa\bbb\ccc.txt の場合、 c:\aaa\bbb を取得します。
関数概要
- 関数名: FNCFullPathToFolderPath
- 入力引数; P_IN_FullPath ( String 型 ) : フォルダパスを抽出するフルパスを指定します。
- 出力引数: P_OUT_FolderPath ( String 型) : フォルダパスが設定されます。
- 返り値:リターンコードが返却されます。
実行例
- 準備中
ダウンロード
UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。
以下からダウンロードが可能です。
使用方法
- 準備中
ソースコード
'-----------------------------------------------------------------
' フルパスからフォルダパスを取得する
'-----------------------------------------------------------------
Function FNCFullPathToFolderPath(P_IN_FullPath As String, P_OUT_FolderPath As String) As Integer
On Error GoTo ErrorHandler
FNCFullPathToFolderPath = Me.ReturnError
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
P_OUT_FolderPath = FSO.GetParentFolderName(P_IN_FullPath)
Set FSO = Nothing
FNCFullPathToFolderPath = Me.ReturnNomal
Exit Function
ErrorHandler:
MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
FNCFullPathToFolderPath = Err.Number
Exit Function
End Function
ソースコード説明
- 準備中
|