Import, Move , then Import

[doran_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"))

 

[doran_doran]

can anyone verify this please...

Can anyone verify this code please? Someone gave it to me but I dont know what to do after the loop. Can anyone help Please ?

Dim MyFile, MyPath, MyName, fs
MyFile = Dir("N:\ASCDATA\*.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Do While MyName <> ""
DoCmd.DeleteObject acTable, "NewData"
DoCmd.Transfertext acImportdelim, , "NewData", myfile
DoCmd.OpenQuery "Append NewData to your final output"
fs.CopyFile myfile, "N:\ASCDATA\Done\"
'fs.deletfile myfile <=== this sucker will kill you ( if it works)
MyName = Dir
Loop