Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
Public Const rootdir = "c:\Data\"
Dim nr as int
file = Dir$(rootdir & "*.csv")
nr = 1
Do While file <> ""
DoCmd.TransferText acImportDelim, "ImportSpec", "NewTableName-" & nr, rootdir & file, True, , msoencodingCentralEuropean
file = Dir$
nr = nr + 1
Open in new window
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.