Buenas
En resumen, lo que necesito es sacar el atributo de solo lectura de todo (subdirectorios, archivos, etc) lo que haya dentro de una determinado directorio.
Hice caso a la sugerencia de Neftali pero no logro cambiar los attributos de los subdirectorios.
El código es el siguiente:
Código Delphi
[-]
var
search : TSearchRec;
nFiles : integer;
cPath : String;
begin
cPath:='c:\MiCarpeta\';
nFiles:=FindFirst(cPath + '*.*', faAnyFile, search );
while nFiles = 0 do
begin
if Search.Attr = faDirectory then
begin
if (Search.Name<>'.') and (Search.Name<>'..') then
begin
SetFileAttributes(PChar(cPath + search.Name),FILE_ATTRIBUTE_NORMAL);
end;
end
else
SetFileAttributes(PChar(cPath + search.Name),FILE_ATTRIBUTE_NORMAL);
nFiles:=FindNext(Search);
end;
end;
Con este codigo me cambia todos los atributos de todo lo que contiene el nivel "c:\MiCarpeta" pero no de los subdirectorios y sus contenidos que hay allí adentro.
Alguna sugerencia?
Muchas gracias