[vb6.0/vba] 파일명에서 사용할 수 없는 텍스트(파일명) 치환함수

Function changeFileName(txt)

    s = txt

    s = Replace(s, "\", "_")

    s = Replace(s, "/", "_")

    s = Replace(s, ":", "_")

    s = Replace(s, "*", "_")

    s = Replace(s, "?", "_")

    s = Replace(s, """", "_")

    s = Replace(s, "<", "_")

    s = Replace(s, ">", "_")

    s = Replace(s, "|", "_")

    changeFileName = s

End Function