application.FileSearch not wroking in MS Access 2007

[asifakhtar]

I have installed MS office 2007 and now the below coding is not working its shows me an error (Run time error 2455 )" You entered an expression that has an invalid reference to the property FileSearch "<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> please help me for the below codding that works in MS access 2007 module </o>
<o>' Numbers of text files store in a table </o>
<o></o>Sub AddFile()
Set fs = Application.FileSearch
With fs
.LookIn = "S:\super pass card\Transaction 2010\December"
.FileName = "*.txt"
.Execute
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
DoCmd.TransferText acImportDelim, , "transactions", .FoundFiles(i), True

Next i
End With
End Sub

 

[Tinbendr]

It has been removed from 2007. You can read about it here as well as see other solutions.

 

[asifakhtar]

Thanks for your help; please can someone help me with the script as I am not a programmer (I am fleet assistant) , before I was simply running the module which I haven’t return and know our company installed MS Office 2007 and I don’t know how to change the coding for 2007, the below codding store numbers of text files in a data base table.

Sub AddFile()
Set fs = Application.FileSearch
With fs
.LookIn = "S:\super pass card\Transaction 2010\December"
.FileName = "*.txt"
.Execute
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
DoCmd.TransferText acImportDelim, , "transactions", .FoundFiles(i), True

Next i
End With
End Sub

 

[Trevor G]

This code will list all of your text files in the debug window and also tell you how many files it has found.

Sub AddFileNew()
Dim strPath As String
Dim strFile As String
Dim i As Integer
strPath = "S:\super pass card\Transaction 2010\December\"
strFile = dir(strPath & "*.txt")
Do While strFile <> ""
i = i + 1
Debug.Print strFile
strFile = dir
Loop
MsgBox "How many files found " & i
End Sub

 

[asifakhtar]

Thanks

 

[asifakhtar]

Sub AddFileNew()
Dim strPath As String
Dim strFile As String
Dim i As Integer
strPath = "S:\super pass card\Transaction 2010\December\"
strFile = Dir(strPath & "*.txt")
Do While strFile <> ""
i = i + 1
DoCmd.TransferText acImportDelim, , "transactions", strFile, True
strFile = Dir
Loop
MsgBox "How many files found " & i
End Sub


I have tried this coding but its shows me an error on red highlighted line, please solve for me<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[asifakhtar]

Thanks Trevor !!
its should be
DoCmd.TransferText acImportDelim, , "transactions", strPath & strFile, True
Its working once again thanks a lot

 

[Trevor G]

Pleased to read you have a solution, and happy to help.