当前位置:首页 > 开发 > 正文内容

VB生成大文件的演示程序

jinesc8年前 (2012-05-22)开发1249

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

标签: SQL

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。