FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Listar Subdirectorios con su fecha de creacion y su capacidad
Hola buenas a todos, estoy haciendo un programa q consiste en q yo selecciono un directorio de un DirectoryListBox y al hacer click en un boton, tengo q ver en un memo todos los directorios q dependen de el, ademas de la fecha de creacion de cada directorio/subdirectorio y el espacio q ocupa
Esto es lo q pongo yo, con elo consigo averiguar todos los subdirectorios de ese directorio, pero en cuanto a la capacidad y a la fecha de cracion aparece en el memo con 0. ¿alguien sabe porque?,¿que puedohacer para evitarlo?, lo he probado de muxas maneras y no consigo nada procedure TForm1.Button2Click(Sender: TObject); procedure func_directorio(directorio: string); var x: TSearchRec; begin if FindFirst(directorio+'\*.*', faDirectory, x)=0 then begin while (FindNext(x)=0) and (profundidad <> 0) do begin if ((x.Attr and faDirectory)<>0) and (x.Name<>'.') and (x.Name<>'..') then begin // memo1.lines.Add(directorio+' '+x.Name+', '+inttostr(x.size)+'KB ,'+timetostr(x.Time)); memo1.lines.Add(directorio+' '+x.Name+', '+inttostr(x.size)+'KB, '+timetostr(x.Time));//+DateTimeToStr(FileDateToDateTime(fileAge(directorio)))); func_directorio(directorio+'\'+x.Name); end; // profundidad:=profundidad -1; end; FindClose(x); end; //profundidad:=profundidad -1; end; begin memo1.Lines.Add('SUBDIRECTORIOS DE '+DirectoryListBox1.Directory); //+',' +DateTimeToStr(FileDateToDateTime(fileAge(DirectoryListBox1.Directory)))); func_directorio(DirectoryListBox1.Directory); end; |
|
|
|