Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-11-2011
Anel Hernandez Anel Hernandez is offline
Miembro
 
Registrado: mar 2005
Posts: 94
Poder: 20
Anel Hernandez Va por buen camino
Listar ficheros de un directorio y subdirectorios

Hola,

estoy intentando listar en un memo todos los archivos de un directorio y sus subdirectorios internos usando los trucos con recursividad del foro y no lo logro. Pudieran aclarar cual es mi error?

Código Delphi [-]
var
  SR: TSearchRec;
  dir:string;
  mascara: string;
begin
 dir := edit1.Text;
 mascara:='*.*';
 if FindFirst(edit1.Text + mascara, faAnyFile, SR) = 0 then
  begin
   repeat
    memo1.Lines.Add(SR.Name);
    if ((SR.Attr and faDirectory) = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
     Dir := Dir + SR.Name+'\';
    until FindNext(SR) <> 0;
    FindClose(SR);
 end;
end;

gracias
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
listar directorio ftp jaimeh Varios 1 25-06-2010 14:29:18
Borrado de Directorio y subdirectorios hijos. AntonioMM Windows 2 14-11-2008 16:16:22
borrar archivos d un directorio\subdirectorios segun su extension. No me funciona :( images API de Windows 5 12-06-2007 00:14:30
Listar Subdirectorios con su fecha de creacion y su capacidad acl_gandalf Varios 1 08-04-2005 11:30:42
Buscar todos los subdirectorios existentes en un directorio slat Varios 2 28-12-2004 23:53:52


La franja horaria es GMT +2. Ahora son las 15:51:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi