Les mémos
Je débute...
Visites

 987940 visiteurs

 2 visiteurs en ligne

Recherche
 
Fermer

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 5497 fois