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
| Option explicit
Dim numfolders, Folderpath, Objfolder, FSO, i, logfile, Objfile, Folderprefix
Logfile = "F:\Logrep.txt"
Const ForWriting = 2
Numfolders = 10
Folderpath = "F:\Test\"
Folderprefix = "Tempuser"
Set FSO = createobject("Scripting.FileSystemObject")
Set objfile= FSO.OpenTextFile(Logfile, 2, true)
If Err.Number <> 0 Then
objfile.writeline("Erreur N°" & CStr(Err.Number) & " " & Err.Description)
Err.Clear ' Efface l'erreur.
Else
Objfile.Writeline "Les dossiers sont crées le " & Now & description
end if
For i = 1 To numfolders
Set objfolder = FSO.createFolder(Folderpath & Folderprefix & i)
Next
objfile.Close
Wscript.Echo(i - 1 & "dossiers crées") |
