[max_hl_imported]

Спасибо mibuso, автор не я.

[code]
[Variables]
Name DataType Subtype Length
MSS Automation 'Microsoft Shell Controls And Automation'.Shell
MSFl Automation 'Microsoft Shell Controls And Automation'.Folder3
MSFIs Automation 'Microsoft Shell Controls And Automation'.FolderItems3
MSFi Automation 'Microsoft Shell Controls And Automation'.FolderItem
i Integer

CREATE(MSS);

MSFl := MSS.Namespace('E:\temp');
IF ISCLEAR(MSFl) THEN
  EXIT;

MSFIs := MSFl.Items;
IF NOT ISCLEAR(MSFIs) THEN
  FOR i := 1 TO MSFIs.Count DO BEGIN
    MSFI := MSFIs.Item(i);
    IF NOT ISCLEAR(MSFI) THEN BEGIN
      IF NOT MSFI.IsFolder THEN
        MESSAGE(MSFI.Name);

      CLEAR(MSFI);
    END;
  END;

Через WSH пробовал, не могу добиться извленения файла из коллекции по номеру.
Ошибка как у ТС на mibuso, решение через промежуточный скрипт тоже не отработало..