IZEnumFiles object

Интерфейс для получения списка файлов заданной папки по заданной маске. Возвращается методом ZuluTools.EnumFiles

Входит в состав ZuluGIS 2021 Library.

Методы:

Методы
GetFileName  GetFilePath IsEOF MoveFirst MoveNext

 

Пример:

Пример демонстрирует создание растровой группы, в которую включаются все растровые объекты указанной папки.

    
    Dim zrg As ZRasterGroup
    Set zrg = New ZRasterGroup
    
    Dim Tools As ZuluTools
    Set Tools = New ZuluTools
    
    Dim Ef As IZEnumFiles
    
    'Получаем интерфейс IZEnumFiles для доступа в папке "d:\ZuluData\Raster\" 
    'к списку файлов с расширением ZRS  
    Set Ef = Tools.EnumFiles("d:\ZuluData\Raster\*.zrs", 0)
    
    Ef.MoveFirst
    'Перебираем все файлы папки, удовлетворяющие заданной маске
    Do
    If Ef.IsEOF Then Exit Do
    
    'Добавляем в растровую группу очередной файл
    zrg.AddItem Ef.GetFilePath
    
    Ef.MoveNext
    Loop
    
    'Сохраняем накопленную растровую группу
    zrg.SaveAs "d:\ZuluData\Raster\TestRasterGroup.zrg"