VB 快速生成指定大小空文件
发布网友
发布时间：2022-05-17 10:20
共2个回答
热心网友
时间：2023-10-18 23:14
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 long variable containing a high double word offset to use. May be zero (change declaration to ByVal) to use only lDistanceToMove.
dwMoveMethod Long，下述常数之一
FILE_BEGIN lOffset将新位置设为从文件起始处开始算的起的一个偏移
FILE_CURRENT lOffset将新位置设为从当前位置开始计算的一个偏移
FILE_END lOffset将新位置设为从文件尾开始计算的一个偏移
注解
这个函数与vb的seek语句类似。不要将函数用于通过vb的open命令打开的文件。利用这个函数，可以处理那些长度大于2＾64字节的大型文件
SetEndOfFile
VB声明
Declare Function SetEndOfFile Lib "kernel32" Alias "SetEndOfFile" (ByVal hFile As Long) As Long
说明
针对一个打开的文件，将当前文件位置设为文件末尾
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hFile Long，指定一个文件句柄。文件的当前位置设为文件尾，文件会根据需要缩短
注解
如一个文件正作为打开文件映射对象的基准使用，则不要对其应用这个函数
参考资料：http://topic.csdn.net/t/20060122/14/4530461.html
热心网友
时间：2023-10-18 23:14
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,""
