Показать сообщение отдельно
Старый 29.08.2011, 16:28   #1  
kudrenko is offline
kudrenko
Участник
 
17 / 10 (1) +
Регистрация: 11.11.2010
Ребят, подскажите, пожалуйста, кто сталкивался подобной ситуацией.
Необходимо выполнить вывод всех файлов (их название), которые указаны в соответствующей директории, используя Automation.
Собственно я создал указанные ниже две переменные:
FileSystem Automation 'Microsoft Scripting Runtime'.FileSystemObject
Folder Automation 'Microsoft Scripting Runtime'.Folder

Код:
CREATE(FileSystem);
IF NOT FileSystem.FolderExists("Path") THEN
  ERROR(‘Нет такой директории’);

Folder := FileSystem.GetFolder(“Path”);
А вот как дальше сделать перебор, возможно с помощь цикла WHILE, к сожалению не могу понять. Помогите плиз…