En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222053 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : Les mémos - Fichiers
Page lue 6712 fois
Vous êtes ici :   Accueil » Supprimer ReadOnly