Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> команда Dir, вывод даты создания текстового файла 
V
    Опции темы
Chinese
Дата 2.12.2008, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.12.2008

Репутация: нет
Всего: нет
Уважаемые форумчане помогите чайнику организовать поиск файлов на диске. У меня не получается не один промер который здесь указан. Программа ищет на корне диска, а в каталоги и подкаталоги заходить нехочет помогите чайнику. У меня цель написать программу которая бы отлавиливала расширение Tmp и удаляла его. Помогите пожалуйста.
PM MAIL   Вверх
THandle
Дата 2.12.2008, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Chinese, http://forum.vingrad.ru/sources/topic-205111.html

Ну и в DRKB примеры должны быть.
PM   Вверх
Chinese
Дата 2.12.2008, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.12.2008

Репутация: нет
Всего: нет
В том то и дело что если ты говоришь *.* То поиск идёт везде, а если ставишь вместо звёздочек скажем  *.TXT то он ищет только накорню,  в каталоги и подкаталоги не глядит.
PM MAIL   Вверх
CodeMonkey
Дата 3.12.2008, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89
Цитата(Chinese @  2.12.2008,  23:50 Найти цитируемый пост)
в каталоги и подкаталоги не глядит

Ну разумеется: расширения-то у каталогов нет. Под такую маску они не подходят.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
THandle
Дата 3.12.2008, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Chinese, вот что то типа такого, с проверкой на расширение. Только соответственно сделай вместо добавления в список удаление файла.
Код


procedure ListFilesInDirectory(Dir: string; const Ext: String; Strings: TStrings);
var
  rSearchRec: TSearchRec;
begin
  if ((Dir = '') or (not Assigned(Strings))) then
    Exit;
  Dir := IncludeTrailingPathDelimiter(Dir);
  if FindFirst(Dir + '*.*', faAnyFile, rSearchRec) = 0 then
    repeat
      if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then
        if (rSearchRec.Attr and faDirectory) <> 0 then
          ListFilesInDirectory(Dir + rSearchRec.Name, Ext, Strings)
        else
          if CompareText(ExtractFileExt(rSearchRec.Name), Ext) = 0 then
            Strings.Add(rSearchRec.Name);
    until FindNext(rSearchRec) <> 0;
  FindClose(rSearchRec);
end;
PM   Вверх
Chinese
Дата 5.12.2008, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.12.2008

Репутация: нет
Всего: нет
Цитата

Chinese, вот что то типа такого, с проверкой на расширение. Только соответственно сделай вместо добавления в список удаление файла.код Pascal/Delphi

Я не понял, где здесь проверяется расширение. Пожалуйста обясните как его проверять. пробывал сравнивать rSearchRec.Name с *.tmp, но он ничего не выдавал. Помогите.
PM MAIL   Вверх
THandle
Дата 5.12.2008, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Цитата(Chinese @  5.12.2008,  20:53 Найти цитируемый пост)
Я не понял, где здесь проверяется расширение. 


Цитата(THandle @  3.12.2008,  13:44 Найти цитируемый пост)
if CompareText(ExtractFileExt(rSearchRec.Name), Ext) = 0 then


http://forum.vingrad.ru/faq/topic-212851.html
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0961 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.