全部答案

2018-04-07 10:31:19

•   经测试，最大只能生成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。

  全部
  

  不***

  2018-04-07 10:31:19

  60 12 评论

  分享
  提交评论