经测试,最大只能生成4.09G的单个文件,主要是因为程序打开超过这个大小的文件就会出错。你要生成40G的文件可以通过生成多个文件来实现,比如这里可以生成10个这样的文件
'添加窗体Form1,按钮Command1,复制如下代码:
Private Sub Command1_Click()
Call createFiles(10) '创建10个大小约为4G的文件
MsgBox "创建完成!"
End
End Sub
Private Sub createFiles(intFileCount As Integer)
Dim i, j, fileNumber As Integer
Dim s As String
s = Space(200000000)
For i = 1 To intFileCount
For j = 1 To 22
DoEvents
Open "c:\test" & CStr(i) For Append As #1
Print #1, , s
Close #1
Next
Next
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)