Attrib4allb3 - changer les attributs de tous fichiers d'1 dossier en entier (avec sous-dossiers)

Télécharger le projet
Commenter

Description

Voici un code qui permet de changer les attributs des fichiers de manière récursive.
Il s'applique aux fichiers sélectionnés d'un dossier, ou à tous le dossier seul, ou encore à tous le dossier en entier, incluant tous ses sous-dossiers (c'est ce qu'on appelle la récursivité). J'ai écrit ce code car j'en avais marre de toujours trouver du code qui ne s'applique qu'à un certain nombre de niveau de sous-dossiers. N'oubliez pas de voter !

Source / Exemple : 


'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

Conclusion :


La prochaine version sera pour bientôt, et plus complète.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BobBigBoss)