FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como agrego esta rutina a un treeview
Es decir lo que necesito es que al recorrer el directorio seleccionado agregue al treeview carpetas y archivos como si fuera un explorador
procedure TForm1.Button1Click(Sender: TObject); procedure RastreaDir(Dir: string); var FileSearch: TSearchRec; begin chDir (Dir); FindFirst ('*.*', faDirectory, FileSearch); while FindNext(FileSearch)=0 do begin if (FileSearch.Attr = faDirectory) then begin if (FileSearch.Name<>'..') then RastreaDir(Dir+FileSearch.Name+'\'); end else {Pon aqui lo que quieras hacer con los ficheros encontrados} {Put here anything to make with the find files} Memo1.Lines.Add(Dir+FileSearch.Name); end; FindClose(FileSearch); end; begin RastreaDir('D:\'); end; Última edición por jhcaboverde fecha: 19-03-2009 a las 18:05:17. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como Aplico esta Rutina de Descuento | esimon | OOP | 1 | 28-01-2009 18:11:25 |
Como saber si un Treeview esta vacio y ... | JoAnCa | Varios | 4 | 23-12-2008 20:44:40 |
como agrego '/' a un tedit?? | Fingolfinmx | OOP | 26 | 21-09-2006 20:34:36 |
Que tiene esta Rutina? | esimon | OOP | 5 | 04-07-2006 17:19:03 |
tchar , como agrego datos ? | genarol | Varios | 3 | 29-11-2004 19:43:18 |
|