vb6.0/vba [vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수
페이지 정보
본문
Public Function SaveText(ByVal FilePath As String, ByVal T As String) As 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", "하나를 하더라도 최선을"
- 이전글[vb6.0/vba] 자막파일에서 텍스트 추출하기 20.01.15
- 다음글[vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기 20.01.13
댓글목록
등록된 댓글이 없습니다.