Runtime error 31519 occuring at DoCmd.TransferText

[rcamp]

Hello,
This code worked just fine a couple days ago, now all of a sudden I get the 31519 runtime error.

Private Sub Command8_Click()
Dim f As Object

With CreateObject("Scripting.FileSystemObject")
    For Each f In .GetFolder("C:\ImportDir").Files
        DoCmd.TransferText acImportDelim, "BufferDump", "ImportFile", f.Path, True
        DoEvents
    Next f

End With
End Sub

I've been finding in different forums that other people fixed this problem easily; however, none of those solutions are working. The debugger stops at the DoCmd line.

I appreciate any help or direction, thanks.

 

[rcamp]

One strange thing is that the code appears to run fine other than the error. It brings in all the text files and puts them in the table correctly.