Tester si un fichier X est ouvert

Bonjour,

Ca parait peut etre bête, mais j'aimerai connaitre la commande qui me permet de tester si un fichier qqonque est ouvert ? (ex: un fichier .doc ou .xls)

Merci :wink:

Tu peux peut être essayer d'ouvrir ce fichier en mode exclusif.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If FileExists('u:\Nom_de_fichier') then Begin If (FileOpen('u:\Nom_de_fichier', fmShareExclusive) >= 0) then Begin .... Fichier ouvert (non utilisé par d'autres users)     end else ShowMessage('Fichier ouvert par un autre utilisateur'); end;

---

A+
Wilco

Le prog rentre dans le code "fichier ouvert" alors que je ne l'ai pas ouvert 8O :!:

En fait tu viens de l'ouvrir en utilsant la fonction FileOpen.

Tu peux le fermer juste après en utilsant la fonction FileClose();

A+
Wilco

Si l'autre programme n'a posé aucun "verrou" n'empêchant la lecture du fichier, je ne vois pas comment détecter si le fichier est déjà utilisé ou pas...

L'erreur venait de moi, vos solutions sont bonnes
merci :wink: