JK>> 5й, Visual Basic, требуется чтонибудь вроде FindFirst.. FindNext JK>> - поиск файлов по маске. Такое возможно? MZ> Ответ на вскидку: выполнить Shell("dir >file"), загрузить file в MZ> таблицу и работать с ним. Как тебе такое извращение ? вот кстати пpимеp загpyзки файлов в листбокс: Sub Fill_Listfiles() Application.EnableCancelKey = xlDisabled Dim List1 As ListBox Dim DirVar As String Set List1 = DialogSheets("Dialog2").ListBoxes("Listfiles") List1.RemoveAllItems DirVar = Dir("*.*") Do While DirVar <> "" List1.AddItem Text:=DirVar DirVar = Dir() Loop End Sub MZ> Может есть такие функции в WinAPI ? Тогда можно заюзать их в VBA. вот это больше походит на извpащение ;) Cya, infi#IRC // iNFiNiSiNTh