1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'Скрипт-заготовка
' Этот скрипт перечисляет все файлы по маске (например, *.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