Пожалуйста, включите JavaScript для просмотра этого сайта.

Скрипты Simple-Scada

Синтаксис

function ScanDirectory(APath: string; AType: TM_ScanDirType): TM_ScanDirResult;

Описание

Сканирует указанную в APath директорию и возвращает список файлов и папок в этой директории. Путь в параметре APath обязательно должен завершаться символом "\". Параметр AType имеет перечислимый тип данных TM_ScanDirType, который определяет параметры сканирования и может принимать следующие значения:

sdtAll - искать все файлы и папки, включая скрытые и системные;

sdtFiles - искать только файлы (исключая скрытые);

sdtDirs - искать только папки (исключая скрытые);

В результате выполнения функция возвращает список объектов типа TM_ScanDirResult, каждый из которых содержит информацию о найденном файле или папке.

Пример кода

var
  I: Integer;
  aList: TM_ScanDirResult;
begin
  // сканируем путь "D:\MyFolder\" и записываем результат в aList
  aList := ScanDirectory('D:\MyFolder\', sdtAll);
 
  // в цикле проходим по результатам сканирования
  for i := 0 to aList.Count - 1 do
  begin
    { здесь работаем с каждым найденным файлом или папкой, где:
       aList[i].Name - полное имя файла или папки, напр. "myFile.txt"
       aList[i].ShortName - короткое имя, напр. "myFile"
       aList[i].Ext - расширение файла, напр. ".txt"
       aList[i].Timestamp - время последнего изменения файла
       aList[i].Size - размер файла в байтах }
  end;
end.