FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Contar archivos
Como puedo hacer para contar los archivos que contiene un directorio cualquiera? Hay alguna funcion que me devuelva en un integer ese valor?
Saludos y Gracias
__________________
|
#2
|
||||
|
||||
Contar Archivos
Buenas tardes mamu
El truco nº 15 de la lista de trucos, gracias a David, te duelve en un tstrings los archivos de un determinado directorio con una determinada máscara. Puedes usar el count del TStrings para determinar el número de archivos en el directorio. Espero que te haya servido de ayuda. Salu2
__________________
Caminar sobre el agua y desarrollar software a partir de unas especificaciones es fácil, si ambas están congeladas. |
#3
|
||||
|
||||
SOLUCIONADO
Gracias por la respuesta, me oriento bastante, pero opte por otra solucion. Saludos
__________________
|
#4
|
|||
|
|||
saludos
hola mamu cual fue la solucion que implementaste ? necesito lo mismo k tu, gracias de antemano..
|
#5
|
||||
|
||||
Hola ingmichel.
Una posibilidad es: Código:
function NroArchivos(const Ruta: string): Integer; var SRec: TSearchRec; Attr, re: Integer; begin Result:= 0; Attr:= faSysFile + faAnyFile + faArchive + faHidden + faReadOnly; re:= FindFirst(Ruta + '*.*' , Attr, SRec); while re = 0 do begin Inc(Result); re:= FindNext(Srec); end; end; Código:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(NroArchivos('C:\'))); end; Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#6
|
|||
|
|||
genial
gracias hermano, probe tu funcion y funciona perfecto, k dios te bendiga..
Cita:
|
#7
|
||||
|
||||
Gracias ingmichel , me alegro que te sirviera.
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Contar vcaracteres | jhcaboverde | Varios | 4 | 23-01-2007 17:25:08 |
Contar Dtos en un SQl | IVAND | SQL | 7 | 03-08-2006 23:25:35 |
contar subdirectorios... | Jorghino reyes | Varios | 2 | 26-09-2005 16:33:21 |
contar caracteres | Cosgaya | Varios | 1 | 04-06-2005 17:40:54 |
Contar Caracteres | Nuria | Varios | 2 | 29-12-2003 10:36:46 |
|