ファイル名に使用できない文字の置き換え

ファイル名に使用できない文字を置き換えるメソッド

Imports System.IO

    Public Function ReplaceInvalidChar(ByVal _str As String, Optional ByVal chrReplace 
        As Char = "_"c) As String

        Dim invalidChars() As Char = Path.GetInvalidFileNameChars()
        For Each _char As Char In invalidChars
            _str = _str.Replace(_char, chrReplace)
        Next
        ReplaceInvalidChar = _str

    End Function

使用方法は、

Dim fp As String = ReplaceInvalidChar(_str) & ".csv"

禁止文字が”_”に置き換わります