Importing Text files

[RayMilhon]

I have a project that requires me to import about 25 Text files into an access Database and parse out the lines of text using a non-standard field separator. I'm building the code to parse the lines but since there's multiple files I'd like to read in the filenames from the directory and loop through doing all of the files in 1 run of the code. I'm using MS Access 2010. Anybody have any ideas?

[goodguy]

What code have you got so far?

[jo15765]

When you import the 1st text file, you should be able to save the field mappings, so when you go to import the 2nd text file, all you would have to do is use the same mappings for the 1st. Assuming they are all in the same format.

[RayMilhon]

Found the code I needed in one of my Access Programming books.

this is what I used and it works.

Dim sqlfilename As String, ff As Long, fs As Variant
Dim sourcefolder As Variant, currfile As Variant, lngend As Long
Dim lngstart As Long, PID(1 To 12) As String, lngctr As Long
Dim strline As String, strfilename As String, sfilename As String
ff = FreeFile()
Set fs = CreateObject("scripting.filesystemobject")
Set sourcefolder = fs.getfolder(HL72010Path)
For Each currfile In sourcefolder.files
strfilename = HL72010Path & currfile.Name
Open strfilename For Input As #ff
Line Input #ff, strline
lngstart = 0

[goodguy]

Good for you!