L'exception SecurityException n'a pas été gèrée (méthode openTextFile() )
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:
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
