パス名がスペースを含むときに「”」でくくるには

パス名がスペースを含むときに「”」でくくってみます。
キーワードは「PathQuoteSpaces()関数」です。
PathQuoteSpaces()関数はパス名が途中にスペースを含んでいるときに
「”（ダブル・コォーテェーションマーク）」でくくってくれます。
途中にスペースを含んでいないときはそのまま返します。

実行時の様子

'パス名の途中にスペースを含むパス名を「”」で囲んだ文字列として取得する
Private Declare Sub PathQuoteSpaces Lib "shlwapi.dll" Alias "PathQuoteSpacesA" _
    (ByVal lpszPath As String)

Private Sub Command1_Click()
    Dim temp As String
    temp = Me.Text1.Text & String(256, Chr(0))      'フルパス名 & バッファ確保
    Call PathQuoteSpaces(temp)
    MsgBox temp
End Sub

ダウンロード