[vb6.0/vba] 파일명에서 사용할 수 없는 텍스트(파일명) 치환함수
하나를하더라도최선을
2023-03-11 08:50:04
29,488
0
0
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