'Скрипт-заготовка ' Этот скрипт перечисляет все файлы по маске (например, *.spo) в заданной папке ' Автор: rlevesque@videotron.ca, 12.09.2001 ' http://www.spsstools.net Option Explicit Sub Main Dim strPath As String Dim strFilemask As String strPath="c:\\program files\\spss\\" strFilemask="*.sav" 'Первый пример использования Call GetListOfFiles(strPath, strFilemask) 'Второй пример использования Call GetListOfFiles("c:\\program files\\spss\\","g*.sav") ' Call GetListOfFiles("", "") End Sub Sub GetListOfFiles (strPath As String, strFilemask As String) Dim strFname As String Dim strHeading As String 'Заголовок сообщения пользователю MsgBox If InStr(strPath, "\\") = 0 Then 'путь не указан, используем текущий strPath = objSpssApp.GetSPSSPath End If If Len(strFilemask) = 0 Then 'маска имени не задана, показываем все файлы strFilemask = "*.*" End If strHeading = "List of " & strFilemask & " files in " & vbCr & strPath 'Получаем имя первого файла strFname = Dir$(strPath & strFilemask) While strFname <> "" If MsgBox (strFname,vbOkCancel,strHeading) = vbOK Then 'Получаем имя следующего файла strFname = Dir$() Else 'выход strFname = "" End If Wend End Sub