Bonjour, je suis nouveau sur ce forum, je vous salue.

J'ai un soucie avec un code que j'ai fait pour l'entreprise pour laquelle je travaille. Ce code doit lister les dossiers et les sous-dossier dans un répertoire et les partager sur le réseau, mais il me fait un erreur "Fin d'instruction attendu" a un moment donner, vers la fin et je ne sais pas ce que cela peut bien être.

Je voudrais demander si vous pouviez me donner un indice sur mon problème.

Erreur :

Ligne : 60
Caract. : 3
Code : 800A401

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
option explicit
 
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
 
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (chemin UNC)")
 
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
 
'Boucle de listage
 
	For Each objrootfolder in objsubfolder
		stroutput = stroutput & objrootfolder.name
		stroutput = stroutput &  vbCrLf
	Next
 
'Affichage des dossier à l'écran
msgbox stroutput
 
'Définition de variable
'Dim outputfile
 
'Création d'un fichier texte pour stocker les noms des dossiers
'Set stroutput = objfso.createtextfile("C:\Result.txt")
 
dim CreateFolder, CreateFile, oFSO, oFolder, oFile, oText
 
CreateFolder = inputbox("Entrez le nom du dossier à créer")
CreateFile = inputbox("Entrez le nom du fichier à créer")
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
'Set oFile = oFSO.CreateTextFile("C:\" & CreateFolder & "\" & CreateFile & ".txt")
 
Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
 
oText.WriteLine(stroutput)
 
Const ForReading = 1, ForWriting = 2 
 
  Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
	while Not oText.AtEndOfStream 
		wscript.echo oText.ReadLine
 
	Const FILE_SHARE = 0
	Const MAXIMUM_CONNECTIONS = 25
 
		Dim objWMIService, objNewShare, strComputer
 
		strComputer = "."
 
		Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
		Set objNewShare = objWMIService.Get("Win32_Share")
		errReturn = objNewShare.Create _
                "C:\" & oText &", " & oText , FILE_SHARE, _
		MAXIMUM_CONNECTIONS
 
		Wscript.Echo errReturn
 
	Wend
 
	oText.Close
Merci à l'avance pour toute aide apporter.