VB 快速生成指定大小空文件

Private Sub Command1_Click()
Open "c:\1.txt" For Random As #1
Put #1, 100000, ""
Close #1
End Sub

PUT后边的数字(100000)决定了文件的长度,单位是字节,要变成K就除个8,要变成M再除个1024,例如,你想建一个100M的文件.就写PUT #1,100*1024*8,""

先用SetFilePointer定位，再用SetEndOfFile设置文件结束

SetFilePointer

VB声明
Declare Function SetFilePointer Lib "kernel32" Alias "SetFilePointer" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
说明
在一个文件中设置当前的读写位置
返回值
Long，返回一个新位置，它采用从文件起始处开始算起的一个字节偏移量。HFILE_ERROR意味着出错。会设置GetLastError
参数表
参数 类型及说明
hFile Long，系统文件句柄
lDistanceToMove Long，字节偏移量
lpDistanceToMoveHigh Long，指定一个长整数变量，其中包含了要使用的一个高双字偏移。可设为零（将声明变为ByVal），表示只使用lDistanceToMove
原文：A l