Fórum varrer diretório #274053
24/03/2005
0
Cesar3103
Curtir tópico
+ 0Posts
25/03/2005
Slyavalon
Gostei + 0
28/03/2005
Cesar3103
Gostei + 0
28/03/2005
Kapak
var TS:TSearchRec; iRet:Integer; begin iRet := FindFirst(´Caminho da Pasta\*.*´, faAnyFile, TS); While iRet = 0 do begin if (TS.Attr and $20) > 0 then ListBox1.Items.Add(TS.Name); iRet := FindNext(TS); end; FindClose(TS); end;
Gostei + 0
28/03/2005
Antseralves
Gostei + 0
29/03/2005
Cesar3103
Gostei + 0
23/04/2005
Slyavalon
caosdan@gmail.com
Valeu!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)