7,785
社区成员




Open App.Path & "\SendMessage.txt" For Input As #iFile
Do
DoEvents
Line Input #iFile, astr
Text1.Text = Text1.Text + astr + vbCrLf
Loop Until EOF(iFile)
Close iFile
EndTime = GetTickCount
Debug.Print EndTime - StartTime
Private Sub Command1_Click()
Dim fso As New FileSystemObject, objTS As TextStream
Set objTS = fso.OpenTextFile("d:\13.txt", ForReading)
Debug.Print objTS.ReadAll
End Sub
Private Sub Form_Load()
Open "d:\13.txt" For Binary As #1
Put #1, 40000000, 96
Close #1
End Sub