版主
Open "d:\1.txt" For Input As #1 Dim a As String Do Until EOF(1) Line Input #1, a Text1.SelText = a & vbCrLf Loop
查看详细资料
TOP