Solved Import .CSV VBA Run time Error 3011

[sathsaj]

Dim strFound As String
Dim strSearch As String
strSearch = "C:\Users\SRS\test\STest*.csv"
strFound = Dir(strSearch)
DoCmd.TransferText acImportDelim, "TableSpecs", "Current Day File", strFound, True

Beep
MsgBox "Files Imported", vbOKOnly, ""

what is wrong with this code, first time it works after that it doesnt and gives me Run time error 3011 and when Debug points towards DoCmd line.
Am trying to import a file STest12345685.csv
have saved an import Specs TableSpecs and the table name Iam trying to import is Current Day File.

Could you please help ?

 

[Gasman]

And 3011 is?
Plus if you know the name of the file, why are you using * in the file path?

 

[sathsaj]

Solved - Why do I get Run-time error 3011? | Access World Forums (access-programmers.co.uk) I copied one of the code from this

 

[Gasman]

Solved - Why do I get Run-time error 3011? | Access World Forums (access-programmers.co.uk) I copied one of the code from this

So what was your issue as both spaces and extra dots do not apply to you?

 

[sathsaj]

So what was your issue as both spaces and extra dots do not apply to you?

I discarded my code and copy pasted the one from the solution