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é:
voilà
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
merci d'avance pour vos éclaircissements
Partager