Bonjour,

J'ecris(mode append) dans un fichier en utilisant les FSO.
Jusque la pas de probleme, je l'ouvre, je rajoute mes lignes et je le ferme.

Le soucis c'est que parfois, je quitte mon script sans refermer le fichier, du coup quand je relance mon script je n'arrive plus à l'ouvrir car forcement quelqu'un l'a ouvert et ne la pas rendu.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const ForAppend = 8
Dim fso, f
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForAppend,true)
 
Do While MaCondition
 
f.write("quelque chose")
' traitement sur MaCondition
 
Loop
 
f.Close()
Et donc mon script tourne "sans arret (assez longtemp en fait)" et parfois il est tué (kill) donc impossible de refermer le fichier, et donc de le rouvrir plus tard.
D'ou m'a question est-il possible d'ouvrir le fichier sans le bloquer en sachant que je gere moi meme le fait qu'il n'y aura pas 2 acces simultané (le script ne sera jamais lancé 2 fois)?

Merci