【VBA】ディレクトリのセパレータ付与

Public Function AddPathSeparator(ByVal path As String)
    If Right(path, 1) <> ChrW(92) Then
        path = path & ChrW(92)
    End If
    AddPathSeparator = path
End Function