Hi,
Something like the code below should do it:

Sub Read_Line5_Line6()
Dim Filenames, Filenumber As Integer
Dim LineCounter As Integer, Data, Line5In(), Line6In()
Dim outRng As Range, i As Long

Filenames = Application.GetOpenFilename("test files
(test.*),test.*", , , True)
If Not IsArray(Filenames) Then MsgBox "No files
selected.", vbInformation: Exit Sub
ReDim Line5In(1 To 1)
ReDim Line6In(1 To 1)
'Read files and put lines 5 and 6 into vectors
For i = LBound(Filenames) To UBound(Filenames)
Filenumber = FreeFile
LineCounter = 0
Open Filenames(i) For Input As #Filenumber
Do While Not EOF
Line Input #Filenumber, Data
LineCounter = LineCounter + 1
If LineCounter = 5 Then
Line5In(UBound(Line5In)) = Data
ReDim Preserve Line5In(1 To UBound(Line5In) +
1)
ElseIf LineCounter = 6 Then
Line6In(UBound(Line6In)) = Data
ReDim Preserve Line6In(1 To UBound(Line6In) +
1)
Close #Filenumber
Exit Do
End If
Loop
Next
ReDim Preserve Line5In(1 To UBound(Line5In) - 1)
ReDim Preserve Line6In(1 To UBound(Line6In) - 1)
' Define workbook where data are to be located
Workbooks("SomeName").Activate
' Define worksheet where data are to be located
Worksheets("Somename").Activate
Set outRng = Range(Cells(1, 1), Cells(UBound(Line5In), 1))
outRng.Value = Application.WorksheetFunction.Transpose
(Line5In)
Set outRng = Range(Cells(1, 1), Cells(UBound(Line6In), 1))
outRng.Value = Application.WorksheetFunction.Transpose
(Line6In)

End Sub

-----Original Message-----
Hi,
I have in folder with different files. I'd like, in all
files with name "test" and different extension
e.g. "test.102", "test.aaa", "test.108", "test.120" ,
get
line 5 and 6 and put in worksheet in two columns(for
first
file A1 (line 5) and B1 (line 6) for following file A2
and
B2 etc.
Is there any smart solution?

Regards
Mark
.