J'ai écris un script qui crée un fichier texte si celui ci n'existe pas déjà.
Ensuite, je teste si le fichier est vide (taille égale à zéro) et si il l'est alors j'écris à l'intérieur.
Voici mon code simplifié:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Dim oSFO as FileSystemObject
Dim oFich
Dim monFichier as String = "adresse_de_mon _fichier"
 
oFSo = new FileSystemObject
 
if oFSO.FileExists(monFichier) = false then
oFich = oFSO.CreateTextFile(monFichier)
end if
 
oFich= oFSO.GetFile(monFichier)
if oFich.size = 0 then
oFich = oFSO.OpenTextFile(monFichier, IOMode.ForWritting) <- erreur à ce niveau là
...
... (j'écris dans mon fichier)
...
end if
voilà

merci d'avance pour vos éclaircissements