Data fra txt-fil til txt-fil

Public Sub WriteFromFileTofile(p_intLines As Integer)
    Dim objFromFile, objFromStream, objToFile, objToStream
    Set objFromFile = CreateObject("Scripting.FileSystemObject")
    Set objToFile = CreateObject("Scripting.FileSystemObject")
    Set objFromStream = objFromFile.OpenTextFile("[STI FIL FIL]\text_1.txt", ForReading)
    Set objToStream = objToFile.OpenTextFile("[STI FIL FIL]\text_2.txt", ForWriting, False, TristateUseDefault)
   
    Dim strLine As String
    While p_intLines > 0 And Not objFromStream.AtEndOfStream
        strLine = objFromStream.ReadLine
        objToStream.WriteLine strLine
        p_intLines = p_intLines - 1
    Wend
    Set objFromFile = Nothing
    Set objToFile = Nothing
    Set objFromStream = Nothing
    Set objToStream = Nothing
End Sub

Denne Sub kalder du så med:
WriteFromFileTofile (100)

/nute

Dim MinString as string
  Dim i as Long
 
  Open "C:\Test_1.txt" For Input As #1
  Open "C:\Test_2.txt" For Output As #2
 
  For i = 1 to 100
    Line Input #1, MinString
    Print #2, Minstring
  next i

  Close #1
  Close #2