Run-Time Error 3011 - Can't find file...

[dmoonme]

Hello,

I want to import about 100 csv files to Access table named "NY" But I keep on getting this error when running this code. Points to the DoCmd.TransferText line when debugging. PLEASE HELP!!!!

Private Sub Command0_Click()
Dim myfile


Do

myfile = Dir("c:\csv\*.csv")
DoCmd.TransferText acImportDelim, , "ny", myfile

myfile = Dir
Loop Until myfile = ""

End Sub

 

[PHV]

Try something like this:
Private Sub Command0_Click()
Dim myfile As String, mydir As String
mydir = "c:\csv\"
myfile = Dir(mydir & "*.csv")
Do Until myfile = ""
DoCmd.TransferText acImportDelim, , "ny", mydir & myfile
myfile = Dir
Loop
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[dmoonme]

Thanks for the tip! It works so far. I am getting these Data Type conversion failure errors though.