Public Function AppendFile2()
Dim FileString As String
Dim Fpath, Fname As String
Dim tbl As TableDef
Dim tdfLinked As TableDef
Dim fnstart As Integer

Dim dbs As Database

Set dbs = CurrentDb()

FileString = FileOpen()

 If FileString = "" Then
   Exit Function
 End If

   fnstart = InStr(ReverseString(FileString), "\")

  Fpath = Left$(FileString, Len(FileString) - fnstart)
  Fname = Right$(FileString, fnstart - 1)

 On Error Resume Next
 dbs.TableDefs.Delete "Input Table Temp"
 On Error GoTo 0

  Set tdfLinked = dbs.CreateTableDef("Input Table Temp")

 tdfLinked.Connect = "Text;DATABASE=" & Fpath
 tdfLinked.SourceTableName = Fname
 dbs.TableDefs.Append tdfLinked

  On Error GoTo 0

 DoCmd.RunMacro "Append Input Table Macro1"
 Exit Function

 INSERT INTO [Input table] ( C_NUMBER, F_NUMBER )
 SELECT [Input Table Temp].CARD, [Input Table Temp].F_NO
 FROM [Input Table Temp];