FileGetAttr ne marche pas pour les dossiers ?

**WebPac** · 14/06/2006, 10h43

Bonjour tout le monde, je désire savoir si un dossier est en lecture seule ou non, j'essaie le QR de la FAQ : http://delphi.developpez.com/faq/?pa...tributsfichier
mais il n'indique jamais le dossier en ReadOnly.
Pour info, je dossier est sur un serveur et partagé en lecture seule pour les tests.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
  Attributs : Integer;  Attributs := FileGetAttr( edDossierSauvegarde.Text );
begin
  if Attributs and faReadOnly = faReadOnly then
    ShowMessage( 'ReadOnly' );

J'ai aussi essayé en utilisant un TSearchRec et FindFirst, FindNext, FindClose, j'ai eu le même problème, il ne le retrouvait pas étant en lecture seule.

Est-ce que cela ne fonctionne que pour les fichiers ? Et si c'est le cas, comment peut-on le faire pour les dossiers ?
Merci.

**Philippe Gormand** · 14/06/2006, 14h16

Bonjour.

Il est bien possible que la fonction FileGetAttr ne renvoit pas les informations d'un fichier caché. C'est l'encapsulation d'une API WINDOWS. par contre, aucun souci avec FindFisrt et FindNext. Je les utilises dans un programme de copie de fichiers, et je n'ai aucun problème pour copier les fichiers et dossiers cachés, en lecture seule, system.

Voici une routine que j'utilise dans mon programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
{------------------------------------------------------------------------}
{        Recherche tous les répertoires dans un répertoire racine        }
{------------------------------------------------------------------------}
function ListerLesRepertoires(const ParentDirectory: string;
                              DirectoryList : TStringList) : Integer;
var
  Status, J : Integer;
  SearchRec : TSearchRec;
  Chemin    : String;
 
begin
  Chemin:=ParentDirectory;
  If Chemin = '' Then
   begin
      Result:=0;
      Exit;
   end;
  J := 0;
  If Chemin[Length(Chemin)] <> '\' Then Chemin:=Chemin + '\';
  Result := 0;
  Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory, SearchRec);
  try
    while Status = 0 do
    begin
      if (SearchRec.Attr and faDirectory = faDirectory) then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          DirectoryList.Add(Chemin + SearchRec.Name + '\');
          Inc(J);
        end;
      end;
      Status := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
  Result := J;
end;

Tiens moi au courant. Merci.

**WebPac** · 14/06/2006, 14h27

Dans ton exemple, tu ne testes pas si un répertoire est en lecture seule ou non.
Pour savoir si ce qui est trouvé est un répertoire ou non, il n'y a pas de soucis, cela fonctionne bien chez moi aussi, mais il indique que le répertoire n'est pas en lecture seule alors qu'il est partagé en lecture seule.
Le Info.Attr retourne 16 (juste faDirectory) et non pas 17 (faDirectory et faReadOnly).

**Philippe Gormand** · 14/06/2006, 15h57

Excuse. J'avais pas compris.

C'est vrai, je ne teste pas si le dossier ou le fichier est en lecture seule ou non, car je n'ai pas besoin de le savoir.

Dès que j'aurais un moment, je me pencherais sur le problème. Ca m'intéresse.

A+