Importing multiple txt files into Access 1

[MattBegg]

How could I go about importing many csv files into an Access 2000 database all with the same structure but there is no commonality between the files names, onlt the extension.

I would imagine the logic would be to loop through each file in the directory until all have been processed, but at the moment I cannot think of the code, any help would be much appreciated. Regards

Matt

matt@begg-uk.co.uk

 

[Qaroven]

Private Function importAll()
On Error GoTo err
FileSearch.NewSearch
FileSearch.FileName = "*.csv"
FileSearch.MatchTextExactly = False
FileSearch.SearchSubFolders = False
FileSearch.LookIn = "c:\imports"
FileSearch.Execute
For i = 1 To FileSearch.FoundFiles.Count
DoCmd.TransferText acImportDelim, , "Table1", FileSearch.FoundFiles(i), False
Next
ex:
Exit Function
err:
MsgBox Error$
Resume ex
End Function

May need to check the TransferText bit, and haven't bothered to test it, but try that. Ben
+61 403 395 052