[vb6.0/vba] [vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수
익명
2020-01-15 16:54
2,019
0
본문
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", "하나를 하더라도 최선을"
댓글목록0