Прошу прощения, но у кого нибудь по маске находит то что нужно?

VIG если нетрудно, подскажи какие ссылки на библиотеки у тебя? Хотя они там вроде не нужны. У меня не ищет никак (пример тоже ничего не находит). Только если явно указываешь имя. Access XP + WinXP

Спасибо за ответ.
.FileType = msoFileTypeAllFiles - Вот на этой строке пишет Invalid procedure call or argument. Microsoft Office10.0 Object Library - 2 сверху. Вроде все правильно,а что за баг никак не пойму

Так не отваливается, но и не находит.
.MatchAllWordForms = True - находит все в директории, кроме zip

VIG СПАСИБО за советы, вопрос решен.

Было

Private Sub Êíîïêà0_Click()
Dim S As String
Dim myFolder As String
Dim myFileName As String
On Error Resume Next

DoCmd.SetWarnings False
Kill "C:\Temp\*.dbf"

Me.progress = ""
S = FileUtils_GetFolderName
myFileName = Dir(S + "\*.zip", vbDirectory)
Me.progress = "Обрабатывается путь " & S & vbCrLf
Shell "C:\Program Files\WinRAR\WinRAR e " + S + "\" + myFileName + " -o+ -c- -inul" + " POLYCLIN.DBF" + " c:\temp", vbMinimizedNoFocus

И вот он - косяк
!!!!!!!! butRead_Click (S)
Меняем на S на myFileName ну и соответственно .LookIn = S+"\" на .LookIn = S и все начинает работать



Private Function butRead_Click(S As String)

'Dim dbs As Database
Dim MyTableName As String
Dim j As Long
Dim szNewPath As String
Dim Vs
Dim fs
Dim strFile As String
On Error GoTo 999


Set fs = Application.FileSearch

With Application.FileSearch
.NewSearch

.LookIn = S+"\"
.SearchSubFolders = False
.FileName = "*.zip"
.FileType = 1
' .MatchAllWordForms = False


If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count

MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Stop

Да кстати S виделась в дебаггере правильно, пробовал вместо S вручную путь стрингом прописать, было все по барабану. А вот с заменой заработало.

Выбранную папку без последнего слеша. Если надо пришлю. Правда писал не сам, откуда-то выкачал.

Блин, пятничное пиво действует, некорректно написал. Правильно - путь к выбранной папке