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