Logique FichierLectureSeule

[Bernard_XLD]

Bonjour

Dans la lignée de la gestion de fichier, voici une fonction renvoyant Vrai si un fichier est en lecture seule ou inaccessible (coupure réseau), pratique pour vérifier si une écriture ou une mise à jour du fichier est possible.
à mettre en paramètre le fullname du fichier à tester, accepte les adresses.

Cordialement, @+

Function FichierLectureSeule(FullNomFichier$) As Boolean
    'Fonction FichierLectureSeule V1.0 By Bernard_XLD
    'renvoie Vrai si le fichier est en lecture seule ou inaccessible
    On Error GoTo Gere_Erreurs
    Dim Test_Objet%
    Test_Objet = FreeFile
    Open FullNomFichier For Input Lock Read As #Test_Objet
    Close #Test_Objet
    FichierLectureSeule = False
    Exit Function
Gere_Erreurs:
    FichierLectureSeule = True
End Function