ENLEVER LA LECTURE SEULE DES FICHIERS D'UN DOSSIER ET DES SOUS-RÉPERTOIRES

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