Supprimer ReadOnly

Tout fichier gravé sur un CD prend automatiquement l'attribut ReadOnly (lecture seule), même si on le recopie ensuite sur un disque dur.

La solution est donc de supprimer cet attribut :

Function DelReadOnly(strFile As String)
    '//
    '// Syntaxe : DelReadOnly("C:\cheminimage.jpg")
    '//
    Dim iAttribut As Integer
    If Dir(strFile) <> "" Then
        iAttribut = GetAttr(strFile)
        If iAttribut And vbReadOnly Then
            SetAttr strFile, iAttribut And Not vbReadOnly
            Debug.Print strFile & " is " & GetAttr(strFile)
        End If
    Else
        MsgBox "Fichier n'existe pas...", vbCritical, "Erreur"
    End If
End Function