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