accès a plusieurs fichiers depuis un objet Scripting.FileSystemObject et optimisation

Version imprimable

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:

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:

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

21/01/2010, 15h58
pc75

Bonjour,

A priori, je dirai qu'il est inutile (voire pénalisant) de créer plusieurs instances de FileSystemObject.
21/01/2010, 16h43
Fredledingue

Réponse: la 1re méthode.

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

Bonsoir,

Pour les paresseux, plutôt plusieurs instances:
Code:

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

22/01/2010, 21h26
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:

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.
22/01/2010, 21h35
SfJ5Rpw8

Citation:

Envoyé par Fredledingue

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 ...
30/01/2010, 16h05
Fredledingue
Raymix et bbil
Je vous invite a procèder à l'experience suivante:
Essayez ces deux codes l'un après l'autre. Le 1er ecrira le texte dans "temp.txt", le second,
s'il ne fait pas d'erreur ecrira le texte dans un fichier sans extention nomé "OutputFile1".:aie:
Vous verrez ainsi un fichier sans icone apparaitre dans explorer alors que le contenu de "temp.txt" sera inchangé.
Code:

1 2 CreateObject("Scripting.FileSystemObject").OpenTextFile("temp.txt",2,True).WriteLine "mon texte 1" MsgBox "ok"
Code:

1 2 3 4 5 OutputFile1 = "temp.txt" i=1 CreateObject("Scripting.FileSystemObject").OpenTextFile("OutputFile" & i,2,True).WriteLine "mon texte 2" MsgBox "ok"
30/01/2010, 16h13
SfJ5Rpw8
Citation:
Envoyé par Fredledingue

Raymix et bbil
Je vous invite a procèder à l'experience suivante:
Essayez ces deux codes l'un après l'autre. Le 1er ecrira le texte dans "temp.txt", le second,
s'il ne fait pas d'erreur ecrira le texte dans un fichier sans extention nomé "OutputFile1".:aie:
Vous verrez ainsi un fichier sans icone apparaitre dans explorer alors que le contenu de "temp.txt" sera inchangé.

Code:

1 2 CreateObject("Scripting.FileSystemObject").OpenTextFile("temp.txt",2,True).WriteLine "mon texte 1" MsgBox "ok"

Code:

1 2 3 4 5 OutputFile1 = "temp.txt" i=1 CreateObject("Scripting.FileSystemObject").OpenTextFile("OutputFile" & i,2,True).WriteLine "mon texte 2" MsgBox "ok"
:koi: et alors ? dans ton premier code tu écris dans un fichier temp.txt et dans le second ton fichier ce nomme OutputFile ... il est ou le problème ?

si tu as des problèmes et que tu confond le nom des variables et leur valeur tu devrais penser à rajouter option explicit en haut de tes codes ..;)
01/02/2010, 21h06
Fredledingue

Ce n'est pas moi qui confondait variable et valeurs. C'était Raymix dans son exemple.
03/02/2010, 14h34
raymix

Bonjour,

Je decouvre à l'intant que ce sujet agite toujours alors que Breizhpower, qui posait la question semble loin...
Pour calmer les esprits, effectivement, les noms de fichier issu du code proposé étaient des variables dont l'origine et le
positionnement n'apparaissait pas dans l'extrait. Pour l'exemple, je les ai pris comme valeurs puisque ce n'était pas le coeur du propos. Autant pour moi...
Sur l'aspect performances, je suis également d'accord sur le fait que la création de l'objet fso à chaque tour de boucle,
c'est bof! j'était donc à coté de la question posée. Autant pour moi, bis...
Toutefois, bien que je reconnaisse beaucoup d'intérêt à vbscript, il faut reconnaître que lorsque l'on recherche la perf à tout prix, ce n'est
pas forcément par là que ça passe. Par ailleurs, mes collègues developpeurs (ce que je ne suis pas!) me disent régulièrement que
"plus c'est court, mieux c'est", particulièrement pour debugger!

Cordialement.