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

Soyez le premier à donner votre avis sur cette source.

Vue 6 671 fois - Téléchargée 526 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
195
Date d'inscription
mardi 22 février 2005
Statut
Membre
Dernière intervention
26 octobre 2009
1
Yaoh !

Sympa comme source mais il y a une petite erreur :
kan tu écris
lecteur = fso.GetDrive("D:")
dossier = fso.GetFoler("E:\Mes documents")
fichier = fso.GetFile("C:\Autoexec.bat")

il faut mettre set devant (set lecteur = blabla...)

voilà, mais sinon sa marche impec
Messages postés
15
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
14 mars 2006

Pas mal ! mais la date ? ou plutôt les dates (création, modification) comment on fait pour les modifier ?
En tout cas c'est l'occasion pour moi de bosser sur FSO... je ne m'en sers jamais.
Messages postés
18
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
29 juin 2011

J'ai oublié de préciser, dans ce projet j'utilise, comme vous avez pus le remarquer, un FSO et une technique de programmation qu'on appelle la récursivité

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.