Checking that a file exists before importing it

[johnster]

I have some code that imports and appends a file. does anyone know a way to check that the file exists before the code tries to import it.

Thanks,

John.

 

[DanSc0tt]

Try this:

Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
fExistTable = False
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
If strTableName = db.TableDefs(i).Name Then
'Table Exists
fExistTable = True
Exit For
End If
Next i
Set db = Nothing
End Function

HTH

Dan

 

[mymou]

Hi johnster

Check out FileSystemObject.


Stew "Even a stopped clock tells the right time twice a day."

 

[UncleJack]

If it's a file you're importing, and not an Access table,
try the DIR function that's built into Access.

If Len(Dir(path and file name)) <> 0 then
Import File
End if

Uncle Jack