Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
димка   (2004-02-01 14:05) [0]

Как получить список файлов и папок в данной директории?

---

← →
}{enon ©   (2004-02-01 14:18) [1]

Поискать его в FAQ :)
Смотри хелп или FAQ по FindFirst, FindNext, FindClose.

---

← →
hyper_omsk ©   (2004-02-02 05:53) [2]


   { Private declarations }
 public
  procedure FindFile(Dir:String;mask:string);

procedure tform1.FindFile(Dir:String;mask:string);
Var SR:TSearchRec;
   FindRes:Integer;
begin
FindRes:=FindFirst(Dir+"*.*",faAnyFile,SR);
While FindRes=0 do
  begin
     if ((SR.Attr and faDirectory)=faDirectory) and
     ((SR.Name=".")or(SR.Name="..")) then
        begin
           FindRes:=FindNext(SR);
           Continue;
        end;
     if form3.CheckBox1.Checked=true then
     if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то {здесь ищи имя каталога}
        begin
           FindFile(Dir+SR.Name+"\",mask); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
           FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
           Continue; // продолжить цикл
        end;
     setcurrentdir(dir);
//ищем файлы
     if ".*"=ansilowercase(extractfileext(sr.name)) then BEGIN
     ListBox1.Items.Add(expandfilename(SR.Name));
     application.ProcessMessages;
     end;
     FindRes:=FindNext(SR);
  end;
FindClose(SR);
end;


---

← →
Javlon   (2004-02-28 09:19) [3]

procedure search(dir:string);
var
sr:tsearchrec;
f:textfile;
p:pchar;
begin
sr.Name:="";
findfirst(dir+"\*.*",$3F,sr);
repeat
 if (sr.name<>".")and(sr.name<>"..")and(sr.attr=faDirectory)andthen
 begin
  search(UPPERCASE(dir+"\"+sr.name));
 end;
 if (sr.name<>".")and(sr.name<>"..")and(sr.name<>"")and(sr.attr<>faDirectory) then
  begin
   form1.memo1.lines.add(sr.name);  
  end;
until findnext(sr)<>0;
end;

---

← →
Maxud ©   (2004-02-28 13:14) [4]

SendMessage(ListBox1.Handle,LB_DIR,DDL_DIRECTORY or DDL_ARCHIVE or DDL_HIDDEN or DDL_READONLY or DDL_SYSTEM or DDL_READWRITE,Integer(PChar("C:\*.*")));

---

← →
Javlon   (2004-03-02 13:39) [5]

Ни очен

---

← →
Dimka Maslov ©   (2004-03-02 17:07) [6]

Этот вопрос настолько же провокационен, как и вопрос про то , где часики. Отвечать на него считается неприличным.

---

← →
Slym ©   (2004-03-03 04:42) [7]

procedure EnumFiles(Where, Mask: string;
 var FileList: TStrings);
var
 FD:TWin32FindData;
 hSearch:DWORD;
begin
 FileList.Clear;
 Where:=IncludeTrailingPathDelimiter(Where);
 hSearch:=Windows.FindFirstFile(PChar(Where+Mask),FD);
 if hSearch=INVALID_HANDLE_VALUE then exit;
 repeat
   if FD.dwFileAttributes<>FILE_ATTRIBUTE_DIRECTORY then
     FileList.Add(Where+FD.cFileName);
 until not FindNextFile(hSearch,FD);
 Windows.FindClose(hSearch);
end;

Files:=TStringList.Create;
EnumFiles(c:\windows,"*.exe",Files);



---

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

Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.04 c