REM ==============================
REM Fichier : creer_fichiers_txt.vbs
REM Desc : créer de nombreux fichiers texte aléatoire de 100 Ko, 1 Mo
REM ==============================
Option Explicit
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim u(10000)
Randomize Timer
Dim s
s = "abcdefghijklmnpqrstuvwx" '23 car.
CreerU
Creer2 "100f_100Ko"
Creer2 "100f_1Mo"
Sub Creer2(r)
Dim i, j, msg
Select Case r
Case "100f_100Ko" : msg = " création de 100 fichiers de 100 Ko"
Case "100f_1Mo" : msg = " création de 100 fichiers de 1 Mo"
End Select
Wscript.Echo Now & msg
oFSO.CreateFolder r
For i = 1 To 10
oFSO.CreateFolder r & "\" & i & "\"
For j = 1 To 10
Select Case r
Case "100f_100Ko" : CreerFichier 1000, r & "\" & i & "\" & "\f_1Mo_" & i & "_" & j & ".txt"
Case "100f_1Mo" : CreerFichier 10000, r & "\" & i & "\" & "\f_1Mo_" & i & "_" & j & ".txt"
End Select
Next
Next
End Sub
Sub CreerFichier(nmo, sFichier)
'nmo = 10000 <=> fichier de 1 Mo
Wscript.Echo Now & " " & sFichier
Dim i, f, r
Randomize Timer
Set f = oFSO.CreateTextFile(sFichier)
For i = 0 To nmo
r = Int(rnd*10000)+1
f.WriteLine u(r)
Next
f.Close
Set f = Nothing
End Sub
Sub CreerU
Wscript.Echo Now & " Création de u(40000)"
Dim i, j, r, t, k, n, kk(4)
For i = 1 To 10000
For k=1 To 4 'paquets de 100 octets
t = ""
For j = 1 To 23
r = Int(rnd*23)+1
t = t & Mid(s, r, 1)
Next
kk(k) = t
Next
n = n + 1
u(n) = kk(1) & vbcrlf & kk(2) & vbcrlf & kk(3) & vbcrlf & kk(4)
Next
End Sub