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


Commenter

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

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 (Zlub)