open multiple files from 1 folder and combine the data

[tumor]

I would like to know if its possible to open multiple files from one folder and add the contents of the file to the same file.

say each file has different numbers in it and i want to add those numbers and save them to one file

 

[jonscott8]

Set oFSO = CreateObject("Scripting.FileSystemObject&quot
Set oFile = oFSO.OpenTextFile("C:\file1.txt",1)
nVar = CDbl(oFile.ReadAll)
oFile.Close
Set oFile = oFSO.OpenTextFile("C:\file2.txt",1)
nVar = nVar + CDbl(oFile.ReadAll)
oFile.Close
Set oFile = oFSO.OpenTextFile("C:\file3.txt",2,True)
oFile.WriteLine nVar
oFile.Close
Set oFile = Nothing
Set oFSO = Nothing Jon Hawkins