피씨의 특정 폴더를 검색하시는걸 말씀하시는건가? ^^
그렇다면..
===============================================================
var
i : integer;
sr : TSearchrec;
===============================================================
i := FindFirst('C:Down*.*', FaAnyfile, sr);
While i = 0 do
begin
if sr.attr = 16 then
showmessage('디렉토리 : ' + sr.Name)
else
showmessage('파일 : ' + sr.Name)
그렇다면..
===============================================================
var
i : integer;
sr : TSearchrec;
===============================================================
i := FindFirst('C:Down*.*', FaAnyfile, sr);
While i = 0 do
begin
if sr.attr = 16 then
showmessage('디렉토리 : ' + sr.Name)
else
showmessage('파일 : ' + sr.Name)
i := FindNext(sr);
end;
FindClose(sr);
===============================================================