VB6ファイルパスを結合する

スポンサーリンク

VB6 では、末尾の文字がパス区切り文字かどうか判断して連結したパスを返す方法になります。(FileSystemObject の BuildPath メソッドを使用しても良いです) 次のようなメソッドを作ります。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       2 つのパス文字列を結合します。
'
' @Param    stPath1     第 1 のパス。
' @Param    stPath2     第 2 のパス。
' @Return               結合したパスを含む文字列。
' -------------------------------------------------------------------------------
Public Function CombinePath(ByVal stPath1 As String, ByVal stPath2 As String)
    If Right$(stPath1, 1) = "\" Then
        CombinePath = stPath1 & stPath2
    Else
        CombinePath = stPath1 & "\" & stPath2
    End If
End Function

使用例は以下のようになります。

VB6.0 以前
    ' 連結したファイルパスを取得する
    Dim stFilePath As String
    stFilePath = CombinePath("C:\Hoge\Foo", "Bar.txt")

    ' 連結したファイルパスを表示する
    Call MsgBox(stFilePath)

関連するリファレンス

準備中です。

スポンサーリンク