Discussion :

[aloisio11]

Bonjour,

Je voudrais récupérer les attributs d'un fichier avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
Dim vAtt As IO.FileAttributes
Dim vFile As New IO.FileInfo("MonFichier")

vAtt = vFile.Attributes

For Each vRes In vAtt.GetValues(enumType As System.Type)
     MsgBox(vRes)
Next

Je ne sais pas quoi mettre à la place de "enumType As System.Type" pour que cela fonctionne.

Merci d'avance

[tomlev]

Ca s'utilise pas comme ça. GetValues est une méthode statique de la classe Enum (classe de bases de tous les types énumérés). Elle renvoie toutes les valeurs possibles du type spécifié en paramètre.

Ca s'utilise comme ca :

Code :

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

1
2
3
4
 
For Each v in Enum.GetValues(TypeOf IO.FileAttributes)
    Msgbox v
Next

Mais attention, ca donne tous les valeurs possibles, pas seulement celles de ton fichier.

Si c'est juste pour afficher les attributs du fichier, tu dois pouvoir faire simplement :

Code :

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

MsgBox vAtt

(au lieu du For Each)

[aloisio11]

Code :

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

1
2
3
4
5
6
 
vAtt = vFile.Attributes
 
For Each vRes in Enum.GetValues(TypeOf IO.FileAttributes)
     MsgBox(v)
Next

Avec cela, le Enum est en erreur ("Expression attendue") et si je met vAtt à la place c'est le IO.FileAttributes qui est en erreur ("'FileAttributes' est un type dans 'IO' et ne peut pas être utilisé en tant qu'expression")

Par contre le

Code :

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

MsgBox vAtt

ne me renvoi aucune info à part un entier.

Je sais plus quoi faire ...

[iron182]

FileAttributes est un enum qui a l'attribut flags

Code :

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

1
2
3
4
5
   [Serializable]
    [Flags]
    [ComVisible(true)]
    public enum FileAttributes
    {

se qui veut dire que tu peux mixer plusieurs attributs dans la meme enum via un ou logique --> ! en csharp ( en vb ca doit etre or ...)

le fichier peut en effet etre read only et system à la fois par exemple

donc pour decoder les attributs ----->

Code :

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

1
2
3
4
5
 
dim attributs as FileAttributes  = File.GetAttributes("mon chemin")
if attributs And FileAttributes.System <> 0 then
'fichier systeme !!!!!
endif

j'ai ecris le code vb a la main alors il y a surement des erreurs de syntaxe