Hi,

I'm trying to create a file system object so I can cycle through a
folder and quickly append 30 different text files into one. This is
the short macro I have. When I try to run it, it tells me the
following:

ActiveX component can't create object or return reference to this
object (Error 429)



Sub Gather()
Dim ObjFso As New FileSystemObject
Dim ObjectFolder As Object
Dim ColFiles As Object
Dim ObjFile As Object
Dim T As Integer
Dim MyFile As String
Dim FileNum As Integer
Dim Filenum1 As Integer

FileNum = FreeFile
Filenum1 = FreeFile

MyFile = "Q:\DropBox\csv Files\Appended Data.TXT"


Set ObjFso = CreateObject("Sripting.FileSystemObject")
Set objfolder = ObjFso.getfolder("Q:\DropBox\csv Files")
Set ColFiles = objfolder.Files

Open MyFile For Append As #FileNum


For Each ObjFile In ColFiles
Open ObjFile For Input As #Filenum1
Do Until EOF(Filenum1)
Line Input #Filenum1, Data
Print #FileNum, Data
Close #Filenum1
Loop
Next



End Sub



I have run this same type of procedure before. I can't figure out why
it's giving me this error now. Any help would be appreciated.