用VB快速创建一个2G大文件

乱编乱写 3204 Views 0 Comments

用VB快速创建一个2G大文件

Dim path As String
Dim fn As Integer

path = InputBox("Folder", "2GB file creator", "D:\2GB")
fn = FreeFile

Open path For Binary As #fn
Seek #fn, &H7FFFFFFE
Put #fn, , CByte(0)
Close #fn

MsgBox "OK"

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
loading