marmotte18
XLDnaute Impliqué
Bonjour,
Comment récupérer les attributs (lecture seule et fichier caché) ?
Merci par avance
Comment récupérer les attributs (lecture seule et fichier caché) ?
Merci par avance
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFile("C:\MesDocs\Test\classeur1.xls").Attributes
Constante Valeur Description
Normal 0 Fichier normal. Aucun attribut n'est défini.
ReadOnly 1 Fichier en lecture seule. L'attribut est en lecture/écriture.
Hidden 2 Fichier caché. L'attribut est en lecture/écriture.
System 4 Fichier système. L'attribut est en lecture/écriture.
Volume 8 Étiquette de volume de lecteur de disque. L'attribut est en lecture seule.
Directory 16 Dossier ou répertoire. L'attribut est en lecture seule.
Archive 32 Le fichier a été modifié depuis la dernière sauvegarde. L'attribut est en lecture/écriture.
Alias 64 Lien ou raccourci. L'attribut est en lecture seule.
Compressed 128 Fichier compressé. L'attribut est en lecture seule.
Valeurs
L'argument newattributes peut prendre les valeurs suivantes ou toute combinaison logique de ces valeurs :