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

2018年2月7日

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

Public Function AddPathSeparator(ByVal path As String)

If Right(path, 1) <> ChrW(92) Then

path = path & ChrW(92)

End If

AddPathSeparator = path

End Function

コメントを残すコメントをキャンセル

【VBA】ファイルをコピーする

【VBA】Iteratorパターンのコピペ用の枠セット

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル