VB生成大文件的演示程序

2012-05-22 10:31:32  阅读 4073 次 评论 0 条

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

本文地址:http://financialos.cn/?id=11
版权声明:本文为原创文章,版权归 jinesc 所有,欢迎分享本文,转载请保留出处!

发表评论


表情

还没有留言,还不快点抢沙发?