フルパスファイル名のパス名部分を得る
' IN: fullPathName フルパス名
' OUT: String パス名
Public Function GetPathName(ByVal fullPathName As String) As String
If PathName = "" Then Exit Function
'fullPathNameを'\'で分解する
Dim Files() As String
Files = Split(PathName, "\")
If (UBound(Files) > 0) Then
'最後の要素を削除する
ReDim Preserve Files(UBound(Files) - 1)
'Files()を連結する
GetPathName = Join(Files, "\")
Else
GetPathName = PathName
End If
End Function
フルパスファイル名のファイル名部分を得る
Public Function GetFileName(ByVal fullPathName As String) As String
If PathName = "" Then Exit Function
'FileNameを'\'で分解する
Dim Files() As String
Files = Split(PathName, "\")
'最後の要素を返す
GetFileName = Files(UBound(Files))
End Function
最終更新:2010年12月28日 09:23