자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 3,503회 작성일 23-03-11 08:50

본문

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

댓글목록

등록된 댓글이 없습니다.