「トップページ/VB6/SAMPLE_PATH」の編集履歴（バックアップ）一覧はこちら

「トップページ/VB6/SAMPLE_PATH」(2010/12/28 (火) 09:23:51) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

|&big(){ファイルに関するサンプルコード}|

#contents()

----
*フルパスファイル名のパス名部分を得る
 '   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

|&big(){ファイルに関するサンプルコード}|

#contents()

----
*フルパスファイル名のパス名部分を得る
 '   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