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, @+
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, @+
Code:
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
Dernière édition: