Fórum Como tirar o atributo ´oculto´ de todas pastas de um drive?? #213992

Type  //Tipo criado para guardar info sobre o diretorio
  TDirInfo = record
    Diretorio: string;
    Atributo: Integer;
  end;

 //Se você usa o Delphi 5 igual a mim, necessita declarar esta biblioteca para que a função DirectoryExists seja reconhecido
  USES FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Criterio, Diretorio, PathAtual: string;
  Busca: TSearchRec;
  DirsList: array of TDirInfo;
  Attrs: Integer;
  Cont: Integer;

  procedure ChecarDirOcultos(Busca: TSearchRec);
  begin
    Diretorio := PathAtual + ´\´ + Busca.Name;
    Attrs := FileGetAttr(Diretorio);
    if DirectoryExists(Diretorio) and (Attrs <> 0) then
    begin
      SetLength(DirsList, Length(DirsList) + 1);
      DirsList[High(DirsList)].Diretorio := Diretorio;
      DirsList[High(DirsList)].Atributo := Attrs;

      FileSetAttr(Diretorio, 0);
    end;
  end;
begin
  Criterio := ´c:\*.*´;
  PathAtual := ExcludeTrailingBackslash(ExtractFileDir(Criterio));
  if FindFirst(Criterio, faDirectory or faHidden, Busca) = 0 then
  begin
    ChecarDirOcultos(Busca);
    while FindNext(Busca) = 0 do
      ChecarDirOcultos(Busca);
  end;

  // NESTE MOMENTO TODAS AS PASTAS ESTAO VISIVEIS
  //
  //
  //
  // INSIRA SEU CODIGO DE BACKUP DAS PASTAS NESSE ESPAÇO
  //
  // ESSA ROTINA SOMENTE CHECA OS SUBDIRETORIOS DA PASTA PRINCIPAL
  // ELE NÃO CHECA OS SUBDIRETORIOS DOS SUBDIRETORIOS, PARA ISSO
  // SERIA NECESSÁRIO MAIS UMA IMPLEMENTAÇÃO
  //
  //
  //
  // O CODIGO ABAIXO VOLTARÁ COM OS ATRIBUTOS ORIGINAIS DAS PASTAS

  for cont := 0 to High(DirsList) do
  begin
    FileSetAttr(DirsList[cont].Diretorio, DirsList[cont].Atributo);
  end;
end;