[radge]

Muchas gracias , pero al probar la función se me queja en la linia

if DirectoryListing.Items[i].ItemType = ditDirectory then <== me dice [Error] MAIN.pas(111): Undeclared identifier: 'ditDirectory'

Debo definir alguna unit puede ser ? Tal como dije uso Indy 10 con delphi 7

muchas gracias , radge