Discussion :

[James64]

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

[Wilco]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[James64]

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

[Wilco]

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

[Reisubar]

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...

[James64]

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