VB生成大文件的演示程序

发布时间：2012-05-22 10:31:32

4724 阅读

0 评论

文章标签： SQL

Sub Main()
On Error Resume Next
MkDir App.Path & "\data\"
Dim i As Integer
Randomize
On Error Resume Next
For i = 1 To 1000
Open App.Path & "\data\" & EnCode(Format(Now, "yyyymmdd")) & CStr(i) & ".dll" For Random As 1
DoEvents

Put #1, Int((i * Rnd) * 10000 + 1), EnCode(Format(Int((i * Rnd) + 1) * 1000000, "0000000"))

Close #1
Next
End
End Sub