FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Busqueda recursiva
Código:
procedure TForm1.BuscaFicheros(path, mask : AnsiString; var Value : TStringList; brec : Boolean); var srRes : TSearchRec; iFound : Integer; begin if ( brec ) then begin if path[Length(path)] <> '\' then path := path +'\'; iFound := FindFirst( path + '*.*', faAnyfile, srRes ); while iFound = 0 do begin if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) then if srRes.Attr and faDirectory > 0 then BuscaFicheros( path + srRes.Name, mask, Value, brec ); iFound := FindNext(srRes); end; FindClose(srRes); end; if path[Length(path)] <> '\' then path := path +'\'; iFound := FindFirst(path+mask, faAnyFile-faDirectory, srRes); while iFound = 0 do begin if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) and ( srRes.Name <> '' ) then Value.Add(path+srRes.Name); iFound := FindNext(srRes); end; FindClose( srRes ); end; Si acepta c\aplicacion\ No acepta \\maquina\c\aplicacion\ ¿Tengo que cambiar algo en mi código? Gracias Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
#2
|
||||
|
||||
Te comento que lo probé con direcciones UNC y aparenta funcionar... ¿Cuál es el problema?
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
El problema más que de la programación era de la tarjeta de red de mi equipo.Que he visto que me falla y en otro equipo el código funciona.
Perdón y Gracias
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
|
|
|