ATTRIB4ALLB3 - CHANGER LES ATTRIBUTS DE TOUS FICHIERS D'1 DOSSIER EN ENTIER (AVEC SOUS-DOSSIERS)

'Voici un petit cours sur le FileSystemObject et les attributs de fichiers.

'* Avant tout, dans le projet il faut faire référence à la classe FileSystemObject :
'    Menu " Projet " -> " Références " -> Cocher " Microsoft Scripting Runtime " -> Valider.
'  Cette classe va nous permettre de manipuler les lecteurs, dossiers et fichiers.
'* Ensuite, il faut créer un objet FileSystemObject :
    Dim fso As New FileSystemObject
'  Cette méthode de déclaration est la plus simple, et n'est possible que si la référence a été faite.
'  Il existe d'autres méthodes où la référence n'est pas nécéssaire.

'* Puis il faut créer des variables objets lecteur, dossier et fichier (selon nos besoins) :
    Dim lecteur As Drive, dossier As Folder, fichier As File
'  Ces variables vont nous permettre de manipuler ces objets de manière directe.

'* Pour affecter un objet à sa variable correspondante, il suffit de faire :
    lecteur = fso.GetDrive("D:")
    dossier = fso.GetFoler("E:\Mes documents")
    fichier = fso.GetFile("C:\Autoexec.bat")
'  Désormais, à chaque fois que l'on effectuera une action sur la variable objet "dossier",
'  ce sera en réalité sur le dossier "Mes documents" du lecteur "E" que cette action sera effectuée.

'* Pour agir sur chacun de ces objets, il faut modifier leur propriétés. Ex :
    MsgBox fichier.Path			'==> ceci affiche le chemin du répertoire du fichier
    MsgBox fichier.Attributes		'==> ceci affiche la valeur des attributs du fichier (sous forme d'un nombre entier)
    fichier.Attributes = vbReadOnly	'==> ceci efface tous les attributs du fichier puis lui donne l'attribut "Lecture seule"

'* NB : regarder les attributs d'un fichier, c'est ce que l'on fait quand on clique-droit sur le fichier
'  et que l'on sélectionne "Propriétés". Tout en bas de la fenêtre, il y a 3 cases à cocher visibles
'  (Lecture seule, Caché et Archive) et une case désactivée (Système)

'* En ce qui concerne les attributs de fichier, voici leur valeur :
    vbNormal	= 0	'==> aucun attribut
    vbReadOnly	= 1	'==> fichier en "Lecture seule"
    vbHidden	= 2	'==> fichier "Caché"
    vbSystem	= 4	'==> fichier "Système"
    vbArchive	= 32	'==> fichier "Archive"

'* On peut également combiner plusieurs attributs pour le fichier. Ex :
    fichier.Attributes = vbReadOnly + vbHidden		'==> Le fichier possède maintenant les attributs "Lecture seule" et "Caché"



'ACTION sur tous les fichiers d'un dossier incluant ses sous-dossier (pour un accès non binaire) :

'Faire une référence à la classe FileSystemObject dans le projet : Menu " Projet " -> " Références " -> Cocher " Microsoft Scripting Runtime " -> Valider
Option Explicit
Dim fso As New FileSystemObject, dossier As Folder, sousDossier As Folder, fichier As File

'dans une procédure :
'récupérer le dossier concerné comme par exemple :
Set dossier = fso.GetFolder("C:\Mes documents")
'...
'agir d'abord sur les fichiers du dossier courant
For Each fichier In dossier.Files
	'Action à effectuer comme par exemple "fichier.Attributes = vbNormal"
'...
Next
'maintenant on passe aux sous-dossiers
For Each sousDossier In dossier.SubFolders
	Call Pour_Les_Sous_Dossiers(sousDossier)
Next
'...
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Private Sub Pour_Les_Sous_Dossiers(ByVal dossier As Folder)
'agir d'abord sur les fichiers du sous-dossier courant
For Each fichier In dossier.Files
	'Action à effectuer comme par exemple "fichier.Attributes = vbNormal"
'...
Next
'maintenant on passe aux sous-dossiers du sous-dossier courant
For Each sousDossier In dossier.SubFolders
	Call Pour_Les_Sous_Dossiers(sousDossier)
Next
End Sub