Все файлы в папке

← →
Андрей Другой (2012-05-04 03:17) [0]

Как найти все файлы в папке??!!

← →
KilkennyCat © (2012-05-04 05:07) [1]

точно так же, как и не все.

← →
MBo © (2012-05-04 05:48) [2]

FindFirst + FindNext

← →
Vik © (2012-05-04 06:52) [3]

KilkennyCat © (04.05.12 05:07) [1]
точно так же, как и не все.

А еще можно не все найти? :)

← →
Anatoly Podgoretsky © (2012-05-04 07:08) [4]

Как неправильно искал?

← →
Vik © (2012-05-04 07:44) [5]

Даже я вопросы лучше формулирую =)

← →
brother © (2012-05-04 08:05) [6]

> Даже я вопросы лучше формулирую =)

молчал бы...

← →
CRLF (2012-05-04 08:20) [7]

> точно так же, как и не все.
Неправда, найти не все по заданному критерию подчас сильно сложнее...

← →
Vik © (2012-05-04 08:30) [8]

молчал бы...

Молчу, молчу)

← →
Inovet © (2012-05-04 08:35) [9]

> [7] CRLF (04.05.12 08:20)
> Неправда, найти не все по заданному критерию подчас сильно сложнее...

Если критерий не описывается маской?

← →
Медвежонок Пятачок © (2012-05-04 08:45) [10]

> Неправда, найти не все по заданному критерию подчас сильно сложнее...

Неправда двойная. Не найти по заданному критерию - практически вообще невозможно, а не сложнее. Так как для того, чтобы не найти файл по критерию его сначала таки надо найти и решить что он не попадает под критерий. Если конечно вопрос не решается маской или простым лимитом на файлы

← →
CRLF (2012-05-04 09:08) [11]

> простым лимитом на файлы
что есть сие?

← →
brother © (2012-05-04 09:12) [12]

> что есть сие?

в данной папке файлы только одного типа?

← →
Медвежонок Пятачок © (2012-05-04 09:33) [13]

что есть сие?

Ну скажем файлов всего десять, а мы обрываем цикл на третьей итерации

← →
Inovet © (2012-05-04 09:53) [14]

> [13] Медвежонок Пятачок © (04.05.12 09:33)
> а мы обрываем цикл на третьей итерации

А смысл в этом?

← →
Anatoly Podgoretsky © (2012-05-04 10:10) [15]

> Inovet © (04.05.12 09:53) [14]

А разве он не так делает?

← →
AV © (2012-05-04 10:15) [16]

> А смысл в этом?

Проверить, например, что папка под логи не чистится уже минимум три дня

← →
Inovet © (2012-05-04 10:18) [17]

> [15] Anatoly Podgoretsky © (04.05.12 10:10)
> А разве он не так делает?

Кто он?

> [16] AV © (04.05.12 10:15)
> Проверить, например, что папка под логи не чистится уже минимум три дня

Иначе: узнать, что в папке количество файлов с заданной маской больше N.

← →
sniknik © (2012-05-04 10:19) [18]

> А смысл в этом?
и действительно, нафига все это...
SELECT TOP 3 * FROM TableName
надо предложить в mssql чтобы TOP, а в firebird/jet чтобы FIRST убрали... только в смущение вводят. бессмысленно.

← →
Inovet © (2012-05-04 10:21) [19]

> [18] sniknik © (04.05.12 10:19)
> SELECT TOP 3 * FROM TableName

После TOP ьщжно получить следующие, кроме того ORDER BY есть.

← →
KilkennyCat © (2012-05-04 10:23) [20]

> sniknik © (04.05.12 10:19) [18]

не надо портить скьюл, я тока за него взялся.

← →
AV © (2012-05-04 10:24) [21]

> Иначе: узнать, что в папке количество файлов с заданной
> маской больше N.

> SELECT TOP 3 *

ну да. Индукция что-то хромает с утра :)

← →
Inovet © (2012-05-04 10:35) [22]

> [21] AV © (04.05.12 10:24)
> ну да. Индукция что-то хромает с утра :)

SELECT COUNT (*) FROM TableName

← →
Anatoly Podgoretsky © (2012-05-04 10:49) [23]

> Inovet (04.05.2012 10:18:17) [17]

Он это автор

← →
Anatoly Podgoretsky © (2012-05-04 10:50) [24]

> KilkennyCat (04.05.2012 10:23:20) [20]

Так предлагаю улучшить, убрать неодназначность

← →
Anatoly Podgoretsky © (2012-05-04 10:52) [25]

> Inovet (04.05.2012 10:35:22) [22]

Жадко что они так и не смогли реализовать WinFX

← →
rodionov_uv (2012-05-06 00:29) [26]

Удалено модератором

← →
Плохиш © (2012-05-06 01:27) [27]

Кампанента на любой чих батонокидателя.

← →
Германн © (2012-05-06 01:40) [28]

> rodionov_uv (06.05.12 00:29) [26]
>
> Используй компонент mFileScan

Плохой совет.

← →
rodionov_uv (2012-05-06 01:50) [29]

> Германн © (06.05.12 01:40) [28]
>
>
> > rodionov_uv (06.05.12 00:29) [26]
> >
> > Используй компонент mFileScan
>
> Плохой совет.

Зато работает, а чем совет плохой? Разъясните пожалуйста.

← →
Германн © (2012-05-06 02:03) [30]

> Зато работает, а чем совет плохой? Разъясните пожалуйста.

Новый компонент добавлять в палитру компонентов (что явно, что неявно) полезно только тогда, когда сей компонент реализует что-то новое. Что трудно получить используя стандартные компоненты или стандартные функции/процедуры. Задача же "поиск файлов в каталоге" уже давно "изжёвана и переварена" ещё в турбо паскале. И решается всего тремя строчками кода! Зачем для этой задачи городить компонент?

> Плохиш © (06.05.12 01:27) [27]
>
> Кампанента на любой чих батонокидателя.
>

← →
rodionov_uv (2012-05-06 02:20) [31]

Согласен с Вами, но это если Вы учились на программиста, а я учился 17 лет назад и то на бейсике.
Но если я пишу программы только для себя или своих работников, а к программированию не имею вообще никакого отношения, то для меня лучше что нибудь попроще - например компонент на любой чих батонокидателя, как выразился Плохиш ©, если даже и всё разжёвано.

> rodionov_uv (06.05.12 02:20) [31]
>
> Согласен с Вами, но это если Вы учились на программиста,
> а я учился 17 лет назад и то на бейсике.

Я не учился на программиста!
Я когда-то учился на физика. Но ...
И я учился лет эдак 35 назад.
Но я всегда был готов учиться в не зависимости от того где, когда и почему мне нужно учиться.

> rodionov_uv

Здесь пытаются учить не мышкотудасюдадвижениям, а разработке.

Хотя конечно есть у меня в команде, обитающий тут же, тудасюдаправорукий кодер ) но с ним разговор отдельный...

а мне нравится мышкойтудасюдатовый метод...

> KilkennyCat © (07.05.12 01:47) [35]
>
> а мне нравится мышкойтудасюдатовый метод...
>

Отдыхаешь от основной работы таким образом?

>Отдыхаешь от основной работы таким образом?

Не, просто движения приятные :)

смешно :)

← →
123 (2012-05-26 18:12) [39]

> Зато работает, а чем совет плохой? Разъясните пожалуйста.

Новый компонент добавлять в палитру компонентов (что явно, что неявно) полезно только тогда, когда сей компонент реализует что-то новое. Что трудно получить используя стандартные компоненты или стандартные функции/процедуры. Задача же "поиск файлов в каталоге" уже давно "изжёвана и переварена" ещё в турбо паскале. И решается всего тремя строчками кода! Зачем для этой задачи городить компонент?

> Плохиш © (06.05.12 01:27) [27]
>
> Кампанента на любой чих батонокидателя.
>

Можно эти три строчки в студию?

можно даже одной.

> Можно эти три строчки в студию?

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then repeat ... until FindNext(sr) <> 0; FindClose(sr);

> Германн © (26.05.12 18:20) [41]
if FindFirst ... then try repeat ... until FindNext ... finally FindClose end
Иначе есть шанс словить утечку ресурсов.

Для новых версий Delphi более удобно:

uses System.IOUtils; ... TDirectory.GetFiles()

Все файлы в папке Найти похожие ветки