Append first line of dir files to output file

[JuniperGreen]

As a newbie I am struggling to write a VBS script and would appreciate some help. I have searched through previous queries but couldn't find anything to match this:

I have directory with a fair number of files in it and wish to write a VBS script which will go through all the files in the directory and copy the first line of each of the files and append each first line to a list in an output file.

I have made a start but am at a loss how to proceed to write the info to the output file

Any help or script would be greatly appreciated.

JuniperGreen

"Script:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set folder = objFSO.GetFolder("c:\library\")
Set outfile = objFSO.CreateTextFile("c:\library2\Reference.txt")
for each file in folder.Files
Set testfile = objFSO.OpenTextFile(file.path, ForReading)
Do While Not testfile.AtEndOfStream

StrLine = testfile.ReadLine
Loop
Testfile.close
Set testfile = nothing
Next
Outfile.close"

 

[tom982]

Hello JuniperGreen and welcome to the forums

Two questions:

1) Can I do it in batch instead?
2) Are they all text files?

Tom

 

[JuniperGreen]

Hi Tom,

While I would really prefer VBS, I would be grateful for a batch file version although it is a long time since I used batch files. Only text files are involved.

Thank you