в Access 2010 нет свойства "FileSearch"

[Vladymyr]

В access 2003 я написал код, который преобразовывал файлы без расширения (вместо правильного расширения после точки там стоят буквы и цифры, например: "#сnjx75.c74") в текстовые файлы и сохранял их в другую папку ("Files") с именем, которое зависит от букв в средине имени исходного файла.
Структура информации в файлах такая:

1015526431=53384
1045674201=293552
1010084781=213309
1010086801=616367
1010085801=63000.

Вот этот код:
"Public Function Files()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Documents and Settings\prg"
.Filename = "*tjx*.*"
If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

FileCopy .FoundFiles(i), "C:\Documents and Settings\prg\Files\TJX.Txt"
Next i

Else
MsgBox "Вставьте файлы !!!"
End If
End With"

После смены версии Access с 2003 на 2010 - программа пишет сообщение о том, что свойство "FileSearch" в офисе 2010 отсутствует.
Пожалуйста, помогите решить проблему.

[Teslenko_EA]

Здравствуйте Vladymyr.
попробуйте (испытайте) код, думаю А2010 не откажется его понимать

Sub proc1()
Dim s$, i%, vColl As New Collection
Const Path1 = "C:\Documents and Settings\prg\"
Const Path2 = Path1 + "Files\"
s = Dir(Path1 + "*TJX*", 7)
If Not Len(s) = 0 Then
    Do While Len(s) > 0
        vColl.Add s, s
        s = Dir
    Loop
    For i = 1 To vColl.Count
       Name Path1 + vColl(i) As Path2 + "TJX.txt" '(?)
       'алгоритм присвоения имен не понятен, может все таки так:
       'Name Path1 + vColl(i) As Path2 + vColl(i) + ".txt"
    Next
End If
End Sub

Евгений.

[Vladymyr]

Спасибо, Евгений. Все получилось !!!
Вас с Украиной ничего не связывает ?

[Abrakadabra]

Сообщение от Vladymyr

Вас с Украиной ничего не связывает ?

Дружба народов..