Résultat script vbs vers fichier txt

Bonjour,

Je tente de sortir le résultat du script suivant dans un fichier txt :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ControleDisque() Dim stRep 'Nom du répertoire à parcourir Dim oFSO, oFld Dim fso, f Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "\\Plume\data" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("ControleDisque.txt",2,true) Set oFld = oFSO.GetFolder(stRep) For Each oFld In oFSO.GetFolder(stRep).SubFolders Wscript.Echo "Size :" & oFld.Size & vbCrLf & _ f.Write size Next f.close End Sub

---

Cependant, j'obtient l'erreur suivante lors de son exécution :

Citation:

---

Ligne 12
Caractère 9
Fin d'instruction attendue
Code erreur 800a0401

---

Etant novice en vbscript, est-ce que quelqu'un pourrait me donner un coup de main?

Merci d'avance.:roll:

Code:

---

1 2	Wscript.Echo "Size :" & oFld.Size & vbCrLf & _ f.Write size

---

La fin de ta première ligne est un "_", ce qui fait que ca te donne en fait ceci en code :

Code:

---

Wscript.Echo "Size :" & oFld.Size & vbCrLf & f.Write size

---

et sur un wscript.echo, c'est pas terrible :?

Ok, merci,

j'ai retiré "& vbCrLf & _" de la ligne 11

Le script s'exécute mais je n'ai aucun résultat, rien dans le fichier txt.

Je continue à chercher.

Ton wscript.echo te ressort bien quelque chose ?

Pour l'instant, il n'y a rien qui sort, le fichier ne se crée pas. Avant, je faisais sortir le script en msgbox et ça fonctionnait.
J'ai fait quelques modifs pas encore concluantes et j'en suis là :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ControleDisque() Const ForWriting = 2 Dim stRep 'Nom du répertoire à parcourir Dim oFSO, oFld Dim fso, f Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "\\Plume\data" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\ControleDisque.txt",ForWriting,true) Set oFld = oFSO.GetFolder(stRep) For Each oFld In oFSO.GetFolder(stRep).SubFolders Wscript.Echo "Size :" & oFld.Size f.Write size Next f.close End Sub

---

Je vais chercher des infos sur les commandes Write WScript car c'est là que ça doit coincer.

1. Utilises les balises de codes pour le code. (dans la fenêtre d'édition, le bouton #)
   cho
2. size -> c'est quoi ? Pas une variable initialisé et à laquelle tu as affecté une valeur. En tout cas pas la même chose que ce que tu affiches dans ton echo.
3. Si tu veux écrire dans un fichier texte, ce qui est affiché dans un écho, tu dois dire au script d'y écrire ce que tu affiches dans l'echo.
4. As tu compris ce que je viens de dire ? As tu trouvé ton erreur ?
5. Si non, alors va faire un tour sur la FAQ VBScript, car on va avoir du mal à communiquer si tu n'as pas les notions de bases.
6. Si oui, vérifie que je n'ai pass raconter n'importe quoi, puis n'oublis pas le tag résolu si le problème est résolue.
7. c tout :)

J'ai fini par y arriver, j'explique mon script pour ceux que ça peut intéresser et avis aux amateurs pour l'améliorer :

Pour chaque dossiers sur le serveur \\plume\data , je donne :
1 - le chemin (path)
2 - la taille ( size )
3 - le nombre de sous-dossiers (subf)
4 - le nombre de fichier (filc)

et j'envoie le tout dans un fichier texte ControleDisque.txt, ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Const ForWriting = 2 Dim stRep 'Nom du répertoire à parcourir Dim oFSO, oFld Dim fso, f Dim path, size, subf, filc stRep = "\\Plume\data" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFld = oFSO.GetFolder(stRep) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\ControleDisque.txt",ForWriting,true) For Each oFld In oFSO.GetFolder(stRep).SubFolders path = "Path: " & oFld.Path size = "Size: " & oFld.Size subf = "SubFolders.Count :" & oFld.SubFolders.Count filc = "Files.Count :" & oFld.Files.Count f.Write(path) f.write(" ; ") f.write(size) f.write(" ko") f.write(" ; ") f.write(subf) f.write(" ; ") f.write(filc) & vbCrLf Next

---

:yaisse2: