Option Explicit

'::: Delimiter between FileName and First Line
Dim cstrDelimiter
cstrDelimiter = vbTab

Dim strTargetDir
Dim strOutputFileName

Dim objFSO
Dim objInFile
Dim objInFileTS
Dim objOutFile

strTargetDir = "D:\Temp\TextFiles"
strOutputFileName = "D:\FileList.txt"

'::: Create the object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'::: Force overwrite if it exists
Set objOutFile = objFSO.CreateTextFile(strOutputFileName, True)

'::: Loop through the files in the target directory
For Each objInFile In objFSO.GetFolder(strTargetDir).Files
  '::: Open the file for reading
  Set objInFileTS = objInFile.OpenAsTextStream(1)

  '::: Write the record to the output file
  objOutFile.WriteLine objInFile.Name & cstrDelimiter & objInFileTS.ReadLine

  '::: Close the TextStream
  objInFileTS.Close
  Set objInFileTS = Nothing
Next

'::: Close the output file
objOutFile.Close

Set objFSO = Nothing
Set objInFile = Nothing
Set objOutFile = Nothing