'=========================================================
'
' DESC: Combines a bunch of txt files into one txt file
'
' USAGE: Call CombineFilesTogether ("SOURCE DIR", "SOURCE FILE")
'
'
' AUTHOR: Todd Woolums (twoolums@toddwoolums.com)
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Call CombineFilesTogether ("\\server\share\incoming", "\\server\share\Results.txt")
Set fso = Nothing

Sub CombineFilesTogether(strSourceFolder, strDestinationFile)

    Set fso = CreateObject("scripting.filesystemobject")
    Dim F
    Dim inFile
    Dim outFile

    Set outFile = fso.OpenTextFile(strDestinationFile, 2, True, 0)
    
    For Each F In fso.GetFolder(strSourceFolder).Files
        If UCase(fso.GetExtensionName(F)) = "TXT" Then
            Set inFile = fso.OpenTextFile(F.Path, 1, False, 0)
            Do While Not inFile.AtEndOfStream
                outFile.WriteLine inFile.ReadLine
            Loop
            inFile.Close
        End If
    Next 
    
    outFile.Close

End Sub