Показать сообщение отдельно
Старый 20.09.2011, 14:55   #25  
Alex Che is offline
Alex Che
Участник
 
74 / 10 (1) +
Регистрация: 04.04.2006
Цитата:
Сообщение от jopagames2 Посмотреть сообщение
Блин.
Вот теперь точно - САМАЯ-САМАЯ. Однострочная!

Код:
SHELL(ENVIRON('comspec'), '/c dir /b c:\*.* > c:\out.txt');
Всё-таки нужно ставить RC := SHELL..., иначе вывод длинных оглавлений не успевает отработать, в чём легко убедиться, поставив, скажем, после 'DIR C:\WINDOWS' вызов NotePad.exe на файл out.txt. (не успевает только в первый раз, дальше оно, видимо сохраняется в кэше): в результате получаем в блокноте пустой файл.

Цитата:
Сообщение от AlexB Посмотреть сообщение
И всё-же повторюсь:
что-бы получить список ТОЛьКО файлов команда DIR не годится, т.к. выдаёт всё содержимое (и файлы, и папки).
Как получить список ТОЛьКО файлов? Если с таблицей FILE, то как?
Можно добавить ещё один параметр:
Код:
DIR <путь> /B /A-D
"Минус" перед D, как описано в хелпе по DIR, "имеет значение НЕ", то есть получается - "Выводить НЕ папки".

P.S. Jopagames2 - взаимозачОт за доведение идеи до совершенства!