4 respuestas en este tema

[monchito_elroro]

Buenas amigos de delphiacces, quisiera si me pueden
dar la mano en un dilema, lo que ocurre es que me gustaría
saber como poner y quitar atributos a varios archivos y
carpetas de un mismo lugar o en el lugar en donde esta el programa,

para cada archivo o carpeta lo hago de la siguiente manera:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin  
  fileSetAttr('miarchivo.mio', 1+2+4);  // este funciona
end;

ó así también lo hago:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin  
  fileSetAttr('miarchivo.mio', faReadOnly); //este también funciona
end;

Pero cuando intento hacerlo de la siguiente manera para varios archivos
no sale nada:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin  
  fileSetAttr('*.*', 1+2+4); // no me funciona este comodín
end;

ó:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin  
  fileSetAttr('..\*.*', 1+2+4); // no me funciona este comodín
end;

Por lo cual les pido una mano....

[Fenareth]

Pues más que cambiarle los atributos a todo de un sólo golpe supongo que tendrás que hacerlo uno por uno 

...creo... 

Saludox !

Dale una revisadita a este enlace 

[monchito_elroro]

Gracias por responder, pero sino fuera mucha molestia no me podrían poner un ejemplito............
gracias.

[enecumene]

Pues te daré una pista ya que no tengo Delphi o Lazarus en mano (ya que vienen siendo lo mismo), Colocas un Opendialog y activas la propiedad Multiple Select a true, luego en un ciclo for cuentas los archivos seleccionados y le vas asignando los atributos uno a uno.

O algo más avanzado:

delphi

procedure AsignarAtributos (const Path, Mask : string; Attr: Integer);
var
  Result    : integer;
  SearchRec : TSearchRec;
begin
  Result := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);
  while Result > 0 do
  begin
    FileSetAttr (Path + SearchRec.name, Attr);
    Result := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;

Donde:

Path := Ruta del archivo o archivos
Mask := Mascara (*.*, Algo.*, *.exe, etc etc)
Attr := Los atributos que quieres colocar o eliminar

Hago constar que lo hice de memoria asi que puede tener algunos fallos.

Saludos

[escafandra]

Vamos a tratar resolver la cuestión con una función recursiva:

delphi

procedure SetAttribute(Path: String; dwFileAttributes: DWORD; SubDir: boolean = false);
var
  A:  integer;
  sr: TSearchRec ;
  FileName, Dir: String;
begin
  A:= FileSetAttr(PCHAR(Path), dwFileAttributes);
  Dir:= ExtractFileDir(Path) + '\';
  FileName:= ExtractFileName(Path);
  if FileName = '' then FileName:= '*.*';
  if (Dir <> '') and (FindFirst(Dir + FileName, faAnyFile, sr) = 0) then
  repeat
    if (sr.Name <> '.') and (sr.Name <> '..') then
    begin
      A:= FileSetAttr(PCHAR(Dir + sr.Name), dwFileAttributes);
      if (sr.Attr and faDirectory) <> 0  then
        if SubDir then SetAttribute(Dir + sr.Name + '\', dwFileAttributes, true);
    end;
  until (FindNext(sr) <> 0);
  FindClose(sr);
end;

El parémetro SubDir sirve para explorar en los subdirectorios de la ruta dada.

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetAttribute('d:\hola\*.bmp', faArchive, true);
end;

Saludos.