vb 创建一个超大文件,任意文件内容

来源:百度知道 编辑:UC知道 时间:2024/05/23 13:46:47
创建一个40G或更大的文件,写向E盘,
文件名任意如1.txt
任意内容

楼上的,你测试了么?可以放那么多9吗?有些事情是不可以想当然的
经测试,最大只能生成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
       &nb