Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Спасибо вот что вышло..

Call PoiskFayla(Me.direktoriya, "*" & Me.nazvanie_fajla & "*.*")

Function PoiskFayla(PAPKA As String, IMA As String) Dim i As Integer Dim sResult As String Application.FileSearch.NewSearch Application.FileSearch.LookIn = PAPKA Application.FileSearch.FileName = IMA Application.FileSearch.SearchSubFolders = True Application.FileSearch.Execute Me.progress = "Hайдено файлов =" & Application.FileSearch.FoundFiles.Count For i = 1 To Application.FileSearch.FoundFiles.Count 'Me.progress = Me.progress & vbNewLine & GetFile(Application.FileSearch.FoundFiles(i)) 'Me.progress = Me.progress & vbNewLine & Application.FileSearch.FoundFiles(i) Call zapis(GetFile(Application.FileSearch.FoundFiles(i)), Application.FileSearch.FoundFiles(i)) Next i 'MsgBox "Hайдено" & vbNewLine & Me.progress 'Application.FileSearch.FoundFiles.Count End Function

Public Function zapis(IMA As String, puti As String) As String Dim dbs As DAO.Database, rst As DAO.Recordset     Set dbs = CurrentDb     Set rst = dbs.OpenRecordset("select * from " & "Таблица5")     rst.AddNew     rst!FileName = IMA rst!put = puti   rst.Update     rst.Close     dbs.Close       Me.table5.Requery End Function