VBScript: отбор файлов с помощью компонента JSListVw.dll

Бесплатный COM-сервер JSListVw.dll предоставляет несколько методов для работы с файлами и папками с возможностью вывести список файлов/папок в интерактивном окне, для выбора. Пользователь может закрыть такое окно только нажатием единственной кнопки "Ок". Дистрибутив (архив) компонента имеет размер около 30 Кб.

Можно заполниь список автоматически:
* всеми подпапками указанной папки;
* всеми файлами указанной папки;
* всеми файлами указанной папки, созданными и/или модифицированными в указанную дату;
* всеми подпапками указанной папки, созданными в указанную дату;
* всеми файлами указанной папки с указанным расширением;
* произвольными строковыми значениями.

Список имеет методы Show/Hide/Clear, а также методы для получения его содержимого и выбранного пользователем элемента.

Внешний вид окна списка:

Выбор папки из списка:

Set oList = CreateObject("JSListVw.List")
oList.LoadFolderList "c:\temp"
oList.AddToList "ПРОИЗВОЛЬНАЯ СТРОКА"
oList.Show()
WScript.Echo oList.GetSelItem() ' возвращает полный путь, если это возможно

Получение всех BMP-файлов в папке Windows:

Set oList = CreateObject("JSListVw.List")
oList.LoadFilesWithExt "c:\windows\", "BMP"
For Each Elem In oList.GetListArray()
    WScript.Echo Elem
Next

Получение всех файлов в папке Windows, изменённых сегодня:

Set oList = CreateObject("JSListVw.List")
oList.LoadFilesOfDate "c:\windows", Date(), False, True
For Each Elem In Split(oList.GetListFormatted(), vbCrLf)
    WScript.Echo Elem
Next