２つのパス名に共通するディレクトリ名を取得するには

２つのパス名に共通するディレクトリ名を取得してみます。
キーワードは「PathCommonPrefix()関数」です。
PathCommonPrefix()関数は２つのパス名に共通するディレクトリ名を返してくれます。
自分でIf文などで作ることもできますが、このAPIを使ったほうが簡単です。

実行時の様子

'２つのパス名の先頭から共通するディレクトリ名を取得する
Private Declare Function PathCommonPrefix Lib "shlwapi.dll" Alias "PathCommonPrefixA" _
    (ByVal pszFile1 As String, ByVal pszFile2 As String, ByVal pszPath As String) As Long

Private Sub Command1_Click()
    Dim temp As String
    temp = String(256, Chr(0))
    '共通部分の抜き出し
    Call PathCommonPrefix(Me.Text1(0).Text, Me.Text1(1).Text, temp)
    Me.Text2.Text = temp
End Sub

ダウンロード