Text Files import (about 1400 of them)

[Doran]

Background:
=======
1. My directory Name is N:\ASCDATA\
2. File name will vary but all with have same txt
extension (there are 1400 text files)
3. They will all be fixed delimited and same format (which
i can write a function and call the function)


My Goal:
=====
1. Click a Button
2. After click, system should import this files (one by
one) into a table called "tblASC"
3. After importing the data, system should move that file
to another direcotory called "N:\ASCData\Done\
4. System should now import the next text file from the
same directory "N:\ASCDATA\"
5. After all the import . Msgbox "Import is done, Total
Import file 1400 (count)"

Is it possible to accomplish ? Can anyone please please
help? I am new to this kinda programming.




= = = Code = = =
This example uses the Dir function to check if certain
files and directories exist. The MacID function may be
used on the Macintosh to specify the file type.

Dim MyFile, MyPath, MyName
' In Microsoft Windows:
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Returns filename with specified extension. If more than
one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next
*.INI file in the
' same directory.
MyFile = Dir

' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first
entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing
directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a
directory.

If (GetAttr(MyPath & MyName) And vbDirectory) =
vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

' On the Macintosh:
' Use the MacID function to specify file type.
' The following statement returns the first "TEXT" file
found in the
' specified directory or folder.
MyFile = Dir("HD:MY FOLDER:", MacID("TEXT"))

 

[Chris Nebinger]

Sounds like you have a good start. Very well defined
requirements:

'Air Code coming

Public Sub ImportAllFiles()
Dim strPath As String
DIm strPathComp As String
Dim strFileName As String
dim intCount As Integer
strPath = "N:\ASCDATA\"
strPathComp = "N:\ASCDATA\Done\"
'Get the first file
strFileName = Dir(strPath & "*.txt")
Do Until strFileName = ""
'Call your function here
'Note: strFileName will not include the path
ImportFiles strFileName
intCount = intCount + 1
'Copy the file to the done directory
FileCopy strPath & strFileName,strPathComp &
strFileName
'Delete the original
Kill strPath & strFileName
'Get the next filename
'If it was the last, strFileName will = "", thus
exiting the loop
strFileName = Dir
Loop
MsgBox intCount & " files Imported"

End Sub


Chris Nebinger