筆箱に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
最近のコメント
コメントを残す