パス名の最後にバックスラッシュをつけるには

パス名の最後にバックスラッシュをつけてみます。
キーワードは「PathAddBackslash()関数」です。
PathAddBackslash()関数はパスの最後にバックスラッシュがついてなければ付けてくれます。
ディレクトリを入力させて、そのパス名の後ろにファイル名を付けるようなときに便利です。

実行時の様子

'パス名の最後尾にバックスラッシュをつける
Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _
    (ByVal lpszPath As String) As Long

    
Private Sub Command1_Click()
    Dim temp As String
    
    temp = String(256, Chr(0))          'バッファの確保
    temp = Me.Text1(0).Text & temp
    Call PathAddBackslash(temp)
    
    Me.Text1(1).Text = temp
End Sub

ダウンロード