Discussion :

[breizhpower]

Bonjour,

J'ai une question concernant l'utilisation d'un seul objet "Scripting.FileSystemObject" pour ouvrir plusieurs fichiers.


Ma question est la suivante:
Laquelle des deux méthode est la plus optimisée

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
 
  Set fso1 = CreateObject("Scripting.FileSystemObject")
 
 
  Set fs1 = fso1.OpenTextFile(OutputFile1, ForWriting,True)
  Set fs2 = fso1.OpenTextFile(OutputFile2, ForWriting,True)
  Set fs3 = fso1.OpenTextFile(OutputFile3, ForWriting,True)
 
  fs1.Writeline "mon texte"
  fs2.WriteLine  "mon texte"
  fs3.WriteLine  "mon texte"
 
  Set fso1 = nothing
  Set fs3 = nothing
  Set fs2 = nothing
  Set fs1 = nothing

ou bien

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
 
  Set fso1 = CreateObject("Scripting.FileSystemObject")
  Set fso2 = CreateObject("Scripting.FileSystemObject")
  Set fso3 = CreateObject("Scripting.FileSystemObject")
 
  Set fs1 = fso1.OpenTextFile(OutputFile1, ForWriting,True)
  Set fs2 = fso2.OpenTextFile(OutputFile2, ForWriting,True)
  Set fs3 = fso3.OpenTextFile(OutputFile3, ForWriting,True)
 
  fs1.Writeline "mon texte"
  fs2.WriteLine  "mon texte"
  fs3.WriteLine  "mon texte"
 
  Set fso1 = nothing
  Set fso2 = nothing
  Set fso3 = nothing
  Set fs3 = nothing
  Set fs2 = nothing
  Set fs1 = nothing

En sachant que les fichiers de sortie peuvent être volumineux


Merci

[pc75]

Bonjour,

A priori, je dirai qu'il est inutile (voire pénalisant) de créer plusieurs instances de FileSystemObject.

[Fredledingue]

Réponse: la 1re méthode.

Aussi il est bon de terminer d'écrire avec fs1.Close.

[raymix]

Bonsoir,

Pour les paresseux, plutôt plusieurs instances:

Code :

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

1
2
3
4
 
For i=1 to 3
CreateObject("Scripting.FileSystemObject").OpenTextFile("OutputFile" & i,2,True).WriteLine "mon texte"
Next

[Fredledingue]

Raymix, ton truc ne peux marcher que si la variable "i" fait partie du nom du fichier. En d'autres mots: Ton truc ne marche pas parcequ'entre guillemet doit se trouver le chemin d'accès du fichier et non une variable. Si tu veux utiliser des noms variables avec incrémentation tu dois faire un "Execute" et exécuter le code. Mais ça devient compliqué quand on est novice.

A la limite on peut insèrer:

Code :

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

Execute "oof = OutputFile" & i

Et utiliser la variable "oof" (ObjOutputFile) dans la formule suivante qui ouvre et écrit dans le fichier.

Autre erreur: A chaque tour du For...Next tu réinstancies le FileSystemObject. Ce qui est anti-performant. En fait il faut instancié le plus d'objet possible avant le For...Next.

[SfJ5Rpw8]

Raymix, ton truc ne peux marcher .....

non il marche le truc à Raymix... mais bon c'est vrai c'est pas trop "le top" cette création d'un objet FSO à chaque tour de boucle FOR... de plus en décomposant le code en plusieurs ligne c'est plus facile à débugger ...