フォルダパス(ディレクトリパス)の末尾に、セパレータ「\」を付与します。
フォルダパスとファイル名を連結するときに使用します。

'---------------------------------------------------------------------------------------------------
'【処 理 名】ディレクトリパスへのセパレータ付与
'【処理概要】ディレクトリパスの末尾にセパレータがなければ付与する
'【引 数】[I]ByVal path As String ディレクトリパス
'【返 却 値】 なし
'---------------------------------------------------------------------------------------------------
Public Function AddPathSeparator(ByVal path As String) As String
If Right(path, 1) <> ChrW(92) Then
path = path & ChrW(92)
End If
AddPathSeparator = path
End Function
