风帆小筑

心有多大 世界就有多大

VB生成大文件的演示程序

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


承接各种软件开发业务,数据库方面 二次开发。 QQ: 475847 mail: jinesc@163.com

发表评论:

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

搜索
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
«    2021年6月    »
123456
78910111213
14151617181920
21222324252627
282930

Powered By Z-BlogPHP 1.7.0

© © 2002-2026 jinesc 版权所有 ICP证: 沪ICP备16005980号-1 沪ICP备16005980号-2 沪ICP备16005980号-3