Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
DoCmd.SetWarnings False
Dim InputDir, ImportFile As String, tblName As String, FinalName As String
Dim InputMsg As String
InputDir = "c:\my documents\ddr backup\"
ImportFile = Dir(InputDir & "\*.csv")
Do While Len(ImportFile) > 0
tblName = Left(ImportFile, (InStr(1, ImportFile, ".") - 1))
DoCmd.TransferText acImportDelim, , tblName, InputDir & ImportFile, True
ImportFile = Dir
Loop
MsgBox "Process Complete", vbInformation
DoCmd.SetWarnings True