[vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] [vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수

익명
2020-01-15 16:54 1,430 0

본문

Public Function SaveText(ByVal FilePath As StringByVal T As StringAs Boolean
     On Error GoTo TextERR2
     Dim FN As Long
     FN = FreeFile()
     Open FilePath For Binary Access Write As #FN
         Put #FN, , T
     Close #FN
     If Len(Dir$(FilePath)) Then SaveText = True
TextERR2:
End Function

 


사용법:)

SaveText 경로, 텍스트내용


예:)

SaveText "C:\test\test.txt", "하나를 하더라도 최선을"

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색