ساخت چندین فایل متنی

[41134100]

سلام
چطور تعداد زیادی فایل متنی (مثلا 1000 تا ) با محتویات 10 کاراکتر و random بسازم؟

[ali_habibi1384]

این کدش:


Dim FreeNum As Long, i As Long
FreeNum = FreeFile()
For i = 1 To 1000
Open "C:\" + CStr(i) + ".txt" For Output As #FreeNum
Randomize Timer
For j = 1 To 10
rn = rn + Chr(Rnd * 27 + 65)
Next j
Write #FreeNum, rn
Close #FreeNum
rn = ""
Next i

اینم سورسش