Discussion :

[ghostvb]

Bonjour,

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

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
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 :

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.

[Thulkash]

Code :

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

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 :

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

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

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

[ghostvb]

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.

[Thulkash]

Ton wscript.echo te ressort bien quelque chose ?

[ghostvb]

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 :

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
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.

[ced600]

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

[ghostvb]

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 :

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
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