Import Routine

P

Paul Hammond

I have a very brief procedure I am running to import a
collection of text files.

Public Function ProcessFiles()

Dim myFSO As New Scripting.FileSystemObject
Dim myfolder As Scripting.Folder
Dim myFile As Scripting.file

Set myfolder = myFSO.GetFolder(Server_Path)

For Each myFile In myfolder.Files

DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, "Import",
"tblImport", myFile.Name, True

Next

MsgBox "Finished"

End Function

I have been getting the error message below.

Runtime Error 3011
"The Microsoft Jet database engine could not find
object 'sample1.txt'. Make sure object exists. etc..."

If I manually import just one of these files and then run
the same code it works perfectly. Any ideas why?

TIA

Paul Hammond
Richmond, VA
 
J

John Nurick

Hi Paul,

Try .Path instead of .Name.

Public Function ProcessFiles()

Dim myFSO As New Scripting.FileSystemObject
Dim myfolder As Scripting.Folder
Dim myFile As Scripting.file

Set myfolder = myFSO.GetFolder(Server_Path)

For Each myFile In myfolder.Files

DoCmd.SetWarnings False
DoCmd.TransferText acImportDelim, "Import",
"tblImport", myFile.Name, True

Next

MsgBox "Finished"

End Function
Click to expand...
 
Top