Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir DAH; Par exemple:
Function FileLocked(FileName As String) As Boolean On Error Resume Next Open FileName For Binary Access Read Write Lock Read Write As #1 Close #1 FileLocked = Err.Number > 0 If FileLocked Then MsgBox "Fichier déjà ouvert !", 64 End Function
MP
"DAH" a écrit dans le message de news:brklmq$2oml$
Bonjour,
Comment peut on tester un fichier pour savoir si celui-ci est locké par un autre utilisateur ou non ?
Par exemple, si quelqu'un modifit un fichier donné celui-ci doit être blocké en écriture/suppression... je voudrais alors savoir son état.
Merci d'avance pour votre aide. -- @+ David
Bonsoir DAH;
Par exemple:
Function FileLocked(FileName As String) As Boolean
On Error Resume Next
Open FileName For Binary Access Read Write Lock Read Write As #1
Close #1
FileLocked = Err.Number > 0
If FileLocked Then MsgBox "Fichier déjà ouvert !", 64
End Function
MP
"DAH" <dah@anti.spam.fr> a écrit dans le message de
news:brklmq$2oml$1@biggoron.nerim.net...
Bonjour,
Comment peut on tester un fichier pour savoir si celui-ci est locké par un
autre utilisateur ou non ?
Par exemple, si quelqu'un modifit un fichier donné celui-ci doit être blocké
en écriture/suppression... je voudrais alors savoir son état.
Function FileLocked(FileName As String) As Boolean On Error Resume Next Open FileName For Binary Access Read Write Lock Read Write As #1 Close #1 FileLocked = Err.Number > 0 If FileLocked Then MsgBox "Fichier déjà ouvert !", 64 End Function
MP
"DAH" a écrit dans le message de news:brklmq$2oml$
Bonjour,
Comment peut on tester un fichier pour savoir si celui-ci est locké par un autre utilisateur ou non ?
Par exemple, si quelqu'un modifit un fichier donné celui-ci doit être blocké en écriture/suppression... je voudrais alors savoir son état.
