ファイルに関するサンプルコード



フルパスファイル名のパス名部分を得る

'   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