• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.01.15 16:54 706 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

등록된 댓글이 없습니다.