Enlever la lecture seule des fichiers d'un dossier et des sous-répertoires

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 396 fois - Téléchargée 47 fois


Contenu du snippet

Il faut ajouter dans la form :
- une FileListBox : File1
- un DirListBox : Dir1

pour l'appel de la procédure c'est tout simple :
call Enlever_LectureSeule("C:\MonRepertoire\")

Source / Exemple :


Public Sub Enlever_LectureSeule(Repertoire As String)
    Dim i       As Integer
    Dim j       As Integer
    Dim chemin  As String
    
    'Initialisations
    Dir1.Path = Repertoire
    File1.Path = Dir1.Path
    
    'Boucle pour parcourir les Sous-Répertoires
    For j = 0 To Dir1.ListCount
        
        'Boucle pour traiter chaque fichier
        For i = 0 To File1.ListCount
            chemin = File1.Path & "\" & File1.List(i)
            SetAttr chemin, vbNormal '<- enlève la "lecture seule" and Co
        Next i
        
        'On passe au(x) sous-repertoire(s)
        File1.Path = Dir1.List(j)
    Next j
End Sub

Conclusion :


et voilà

@+

Zlub

A voir également

Ajouter un commentaire

Commentaires

fplantar
Messages postés
1
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
17 septembre 2002

Ce code ne fonctionne pas correctement si on possède d'autres répertoires à l'intérieure des sous répertoires.
(fichiers non traités)
ActiveZ
Messages postés
19
Date d'inscription
mardi 20 mars 2001
Statut
Membre
Dernière intervention
29 mars 2006

Houla DANGER !
ce code va remettre TOUS les attributs à 0 (les autres aussi...)
Je crois que ça c'est mieux:
If Not (GetAttr(MonFichier) And vbReadOnly) = 0 Then
SetAttr "MonFichier", GetAttr(MonFichier) - 1

De plus, ce code a déjà été mis ds la rubrique fichier par Nix en 1999 ! (avec la meme boulette, donc le meme commentaire)...

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.