ACC2000: How to Automate Importing All Files in a Specific Folder

MORE INFORMATION

1. Create a new form not based on any table or query in Design view.
2. Add a command button to the form and set its OnClick property to the following event procedure:

   Private Sub Command0_Click()
   Dim InputDir, ImportFile As String, tblName As String
   Dim InputMsg as String
   
   InputMsg = "Type the pathname of the folder that contains "
   InputMsg = InputMsg & "the files you want to import."
   InputDir = InputBox(InputMsg)
   ' Change the file extension on the next line for the
   ' type of file you want to import.
   ImportFile = Dir(InputDir & "\*.dbf")
   
   Do While Len(ImportFile) > 0
      ' Use the import file name without its extension as the table
      ' name.
      tblName = Left(ImportFile, (InStr(1, ImportFile, ".") - 1))
      ' Change dBase III on the next line to the type of file you
      ' want to import.
      DoCmd.TransferDatabase acImport, "dBase III", InputDir, _
            acTable, ImportFile, tblName
      ImportFile = Dir
   Loop
   End Sub
   
   					

3. Open the form in Form view and click the button to begin importing tables.