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") |
Partager