How to do a Transfer Text Batch Group

[Rolan]

I would guess that someone has done this before, but I cannot seem to
get it to work. In a given month, there are hundreds of updates
received that need to be entered. It is obviously a slow and tedious
task to import them one at a time. What I would like to do is to place
all of the updates into one directory and import them all at one time.

However, DoCmd.TransferText acImportDelim, , "Updates" , "C:\Item
Updates\*.txt" , True does not work. The files are named
"Update123.txt, Update245.txt, etc." so each is unique. Of course, hard
coding these as a separate line will work, but that is way too time
consuming and also subject to change, not to mention future problems.
Perhaps someone could share a piece of code to handle this.

Any insight or assistance will be appreciated. Thanks.

[rkc]

Rolan wrote:

I would guess that someone has done this before, but I cannot seem to
get it to work. In a given month, there are hundreds of updates
received that need to be entered. It is obviously a slow and tedious
task to import them one at a time. What I would like to do is to place
all of the updates into one directory and import them all at one time.

However, DoCmd.TransferText acImportDelim, , "Updates" , "C:\Item
Updates\*.txt" , True does not work. The files are named
"Update123.txt, Update245.txt, etc." so each is unique. Of course, hard
coding these as a separate line will work, but that is way too time
consuming and also subject to change, not to mention future problems.
Perhaps someone could share a piece of code to handle this.

Perhaps:

Sub AllFiles()
Dim s As String
s = Dir("C:\ItemUpdates\Update*.txt")

While Len(s) > 0
DoCmd.TransferText acImportDelim, , "Updates" , s
s = Dir
Wend
End Sub