Jet Database engine could not find object

[kenschmitz]

I am using VB6 and access 2000. I am having an error when my program attempts to open a DBF file. The error message is "Error: The Microsoft Jet database engine could not find teh object 'filemane.dbf'. Make sure the objext exists and that you spell its name and the path name correctly.

Here is the code:

Public Sub Import_dBaseIII_File(strFile_dBaseIII As String, strDB As String, strTable As String)
Dim objAccessApp As Access.Application
Dim objFileInfo As clsFileInfo

Set objAccessApp = New Access.Application
Set objFileInfo = New clsFileInfo

objFileInfo.FileFrom = strFile_dBaseIII
objFileInfo.GetFileInformation

Stop
objAccessApp.OpenCurrentDatabase strDB
objAccessApp.DoCmd.TransferDatabase acImport, "dBase III", _
objFileInfo.FilePath, acTable, objFileInfo.FileName, strTable
objAccessApp.CloseCurrentDatabase
End Sub

After it hits the "Stop" I walk it throgh and find that the variables are correct with the path and filename.

Thanks

 

[bjd4jc]

Does objFileInfo.FilePath contain the name of the actual file or is just the path to the directory where the file is stored?

 

[kenschmitz]

The objFileInfo.FilePath contains ony the name of the path. The objFileInfo.FileName contains the filename.