code270a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 14 行

Public Sub Main()
  Dim Incoming_Text As String

  Open "C:\Autoexec.Bat" For Input As #1
  Open "C:\Acopy.bak " For Output As #2
  Line Input #1, Incoming_Text
  Do While Not EOF(1)
    Debug.Print Incoming_Text
    Print #2, Incoming_Text
    Line Input #1, Incoming_Text
  Loop
  Close
End Sub