如何自动保存文本文件并自动显示

Option Explicit



Private Sub Command1_Click()

  Dim Arr() As Byte

  Dim FileName As String

  Arr = StringToByteArray(Text1.Text)

  FileName = "D:\" & Format(DateAdd("D", 1, Now), "YYYY年MM月DD日") & ".txt"

  

  

  If Len(FileName) <> 0 Then

     Open FileName For Binary As #1

        Put #1, 1, Arr

     Close #1

  End If

End Sub



Private Sub Form_Load()

  Dim Arr() As Byte

  

  Dim FileName As String

  FileName = Dir("D:\" & Format(DateAdd("D", 1, Now), "YYYY年MM月DD日") & ".txt")

  If Len(FileName) <> 0 Then

     ReDim Arr(FileLen("D:\" & FileName)) As Byte

     Open "D:\" & FileName For Binary As #1

        Get #1, 1, Arr

     Close #1

  End If

  Text2.Text = ByteArrayToString(Arr)

End Sub





Public Function ByteArrayToString(bytArray() As Byte) As String



Dim sAns As String

sAns = StrConv(bytArray, vbUnicode)

ByteArrayToString = sAns



End Function





Public Function StringToByteArray(ByVal Text As String) As Byte()



Dim sAns() As Byte

sAns = StrConv(Text, vbFromUnicode)

StringToByteArray = sAns



End Function