NAS и не только

[jopagames2]

Не Извиняюсь.
Проверил. Тупо dir не работает, оказывается.
Должен быт путь к железно существующему файлу.

[jopagames2]

Цитата:

Сообщение от jopagames2

Не Извиняюсь.
Проверил. Тупо dir не работает, оказывается.
Должен быт путь к железно существующему файлу.

Всё. Вот САМАЯ финальная рабочая версия, без пути к процессору

s:text[250];

s:=ENVIRON('comspec');
SHELL(s, '/c dir /b c:\*.* > c:\out.txt');

[jopagames2]

Блин.
Вот теперь точно - САМАЯ-САМАЯ. Однострочная!

SHELL(ENVIRON('comspec'), '/c dir /b c:\*.* > c:\out.txt');

ЗЫ: Подглючивает что-то форум. Не даёт только что созданное сообщение отредактировать, приходится новое писать.

[jopagames2]

С утра так очарован и увлёкся шеллом, что получилось вот что:

SHELL(ENVIRON('comspec'), '/c del "'+ENVIRON('appdata')+'\*.zup"');

Давно уже хотел для своих пользоваталей такое написать (ибо задолбали уже), но всё руки не доходили
Теперь повешу им на кнопку в главном меню, чтобы отстали
Для тех, кто понял для чего это - пользуйтесь! Дарю!

ЗЫ: Андрюха тоже этот вопрос решал, но более громоздко
http://www.apanko.ru/showthread.php?t=1473

[alexb_imported]

Цитата:

Сообщение от jopagames2

Вот теперь точно - САМАЯ-САМАЯ. Однострочная!

SHELL(ENVIRON('comspec'), '/c dir /b c:\*.* > c:\out.txt');

И всё-же повторюсь:
что-бы получить список ТОЛьКО файлов команда DIR не годится, т.к. выдаёт всё содержимое (и файлы, и папки).
Как получить список ТОЛьКО файлов? Если с таблицей FILE, то как?