コピペで使えるVBAのコード置き場

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

筆箱にVBAのカンニングペーパーを入れる係のみすくです。こんにちは。
'---------------------------------------------------------------------------------------------------
'【処 理 名】ディレクトリパスへのセパレータ付与
'【処理概要】ディレクトリパスの末尾にセパレータがなければ付与する
'【引    数】[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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です