[vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수
하나를하더라도최선을
2020-01-15 16:54:26
29,821
0
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", "하나를 하더라도 최선을"