Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

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


View products that this article applies to.

Summary

This article shows you how you can automate importing all files of a particular type from a specific folder on your hard disk. Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

↑ Back to the top


More information

The following example runs a procedure from a command button on a form. The procedure uses an input box to prompt for the folder containing the files that you want to import. Then the code loops through all the files in the folder that you specify and imports them all.

NOTE: The following example imports dBASE version 3.0 files. You select the file type that you want to import by changing the second argument of the TransferDatabase method. If you want to see a list of file types that you can import by using TransferDatabase, create a new macro and insert the TransferDatabase action. Then view the list of file types under the Database Type argument. When you are finished, close the macro without saving it.
  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.

↑ Back to the top


References

For more information about the TransferDatabase method, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type "TransferDatabase method" in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

↑ Back to the top


Keywords: KB198467, kbprogramming, kbhowto

↑ Back to the top

Article Info
Article ID : 198467
Revision : 4
Created on : 10/11/2006
Published on : 10/11/2006
Exists online : False
Views : 345