Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

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

 
Redlord   (2004-12-24 21:57) [0]

всем привет
народ можноли настроить функцию FindFirst чтоб она выдавала
папки И файлы определенного типа, например EXE .
используя ниже приведенный пример я получаю тока файлы

if FindFirst(s+"*.exe", faDirectory, sr) = 0 then
...


 
olookin ©   (2004-12-24 22:08) [1]

Папки кажется маркируются как "*.*". Можно в общем...


 
Redlord   (2004-12-24 22:11) [2]

две звезды ето все файлы а надо тока EXE


 
olookin ©   (2004-12-24 22:13) [3]

В этом коде жирным выделены папки. Так по крайней мере я думаю...

procedure TForm1.Scan(Path: Ansistring);
var SearchRec: TSearchRec;
   s: string;
   r,a: Ansistring;
begin
 FindFirst(Path+"\*.*",faAnyFile,SearchRec);
 while FindNext(SearchRec)=0 do begin
 s:="*"+LowerCase(ExtractFileExt(Path+"\"+SearchRec.Name));
 if (s<>"*") and (s<>"*.") and (s="*.mp3") then begin
Inc(xx);
  end;
 if (SearchRec.Attr and faDirectory=faDirectory) and
 (SearchRec.Name[1]<>".") then Scan(Path+"\"+SearchRec.Name); end;
 FindClose(SearchRec);
end;


 
Sun bittern ©   (2004-12-24 22:25) [4]

faDirectory?


 
olookin ©   (2004-12-24 22:26) [5]

[4] Sun bittern ©   (24.12.04 22:25)

?


 
Sun bittern ©   (2004-12-24 22:38) [6]

olookin ©   (24.12.04 22:26) [5]

Указать в атрибутах файла
FindFirst(Path + "\*.*", faAnyFile + faDirectory, SearchRec);


 
olookin ©   (2004-12-24 23:13) [7]

[6] Sun bittern ©   (24.12.04 22:38)

Я ничего не указывал... Директории и так находятся... По моему...


 
redlord   (2004-12-25 01:56) [8]

как ето через if зделать я знаю а можноли в атрибутах FindFirst ?
а строка
FindFirst(Path + "\*.*", faAnyFile + faDirectory, SearchRec);
покажет тока файлы !!


 
olookin ©   (2004-12-25 02:04) [9]

[8] redlord   (25.12.04 01:56)

У меня директории показывались в поиске...


 
SergP ©   (2004-12-25 02:07) [10]


>  Redlord   (24.12.04 21:57)
> всем привет
> народ можноли настроить функцию FindFirst чтоб она выдавала
> папки И файлы определенного типа, например EXE .


Ищи тогда 2 раза отдельно. Один раз  - папки, дркгой раз экзешники.


 
Fay ©   (2004-12-25 04:05) [11]

2 All
if FindFirst(s+"*.exe", faDirectory, sr) = 0 then
Кому-нибудь ещё удалось так найти только папки?


 
Sun bittern ©   (2004-12-25 10:12) [12]

Файлы и папки по маске

Procedure SearchDir(Path, Mask: String;  SearchSubDir:Boolean; SearchList: TStrings);
 var
   FSearchRec, DSearchRec: TSearchRec;
   FindResult: Integer;

 function IsDirNotation(ADirName: String): Boolean;
 begin
   Result := (ADirName = ".") or (ADirName = "..");
 end;

Begin
 FindResult := FindFirst(Path + Mask, faAnyFile + faDirectory, FSearchRec);

 while FindResult = 0 do
 begin
   SearchList.Add(Path + FSearchRec.Name);
   FindResult := FindNext(FSearchRec);
 end;

 if SearchSubDir then
   FindResult := FindFirst(Path + "*.*", faDirectory, DSearchRec);
   while FindResult = 0 do
   begin
     if ((DSearchRec.Attr and faDirectory) = faDirectory) and not
     IsDirNotation(DSearchRec.Name) then
       SearchList.Add(Path + DSearchRec.Name);
     FindResult := FindNext(DSearchRec);
   end;
end;


 
begin...end ©   (2004-12-25 10:17) [13]

> [12] Sun bittern ©   (25.12.04 10:12)

+ FindClose.


 
Sun bittern ©   (2004-12-25 10:19) [14]

begin...end ©   (25.12.04 10:17) [13]

Каюсь, грешен :)


 
Anatoly Podgoretsky ©   (2004-12-25 11:48) [15]

http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N158



Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.04 c
14-1103841075
Soft
2004-12-24 01:31
2005.01.16
Украина становится Европой.


3-1102604292
_Вован_
2004-12-09 17:58
2005.01.16
Как физически удалить запись из таблички dBase (файла .dbf) ?


3-1102885803
SergP
2004-12-13 00:10
2005.01.16
ADOQuery. Подмена данных при их получении.


1-1104354989
VfloverW
2004-12-30 00:16
2005.01.16
Возможно ли создать независимое приложение?


3-1102582417
einsam
2004-12-09 11:53
2005.01.16
база данных в файлах *.dbw