Read Second Line

Sub ReadSecondLine()

Dim InputFile As String, OutputFile As String, strData As String

'Reads from file

InputFile = "C:\Users\UserName\Documents\AHK\Batch_Manipulator\Batch_Manipulator_File.txt"

'Creates file with the second line

OutputFile = "C:\Users\UserName\Documents\AHK\Batch_Manipulator\Batch_Manipulator_File2.txt"

'Open Files

Open InputFile For Input As #1

Open OutputFile For Output As #2

Line Input #1, strData

'Loop writes on the output file all under second line from input file

Do Until EOF(1)

Line Input #1, strData

Print #2, strData

Loop

Close #1

Close #2

End Sub