Discussion :

[moulery]

Bonjour

Mon fichier est en reseau sur un autre emplacement et je l ai ouvert expres
pour generer cette erreur ( voir le code ci dessous) mais malheureusement le
ioresult est a 0 il passe a travers
voyez vous ?
merci d''avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
cpath:='\\serv1\temp\toto.txt'
Assignfile(FhandleTexte,Cpath);
            {$I-}
            rewrite(FhandleTexte);
            {$I+}
 
            if IOResult <>0 then
            begin
                   ShowMessage('Impossible Le fichier est déjà ouvert, reessayer ultérieurement ');
                   result:=false;
                  exit;
            end;

[craryb]

il faudrait créer un script. Dedans faire un masque à 1. et voir ce qu il retourne.