问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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

发布网友 发布时间:2022-05-17 10:20

我来回答

2个回答

热心网友 时间:2023-10-18 23:14

先用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 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

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,""
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
ipad mini2怎么看小说 关于ipadmini的几点疑惑 苹果平板图书阅读软件推荐推荐一个苹果可以用的免费看小说app 风冷无霜为什么噪音大 华为matepad11多大尺寸的 applewatch可以发微信语音吗? 人类基因组组成 仅从染色体照片(黑白非显带的)能否区别X染色体和C组染色体? ...车子加速不上来是什么原因,节气门清洗过了也不行? 换了变数箱油洗了节气门 提速慢了 停下来起步根本没力气 如何制作特定大小的文件 AIX中什么命令可以产生一个指定大小的文件 怎么用程序生成指定大小的txt文件,比如生成4KB,64KB,64MB大小的txt文件 如何在没有特殊软件的前提下制作一个指定大小的文件? 如何填写上报学生的户籍地、家庭常住地、户籍地教育主管部门地址? 新版绑定手机号也绑定QQ邮箱,怎样解绑手机号? 我的qq邮箱绑定了微信要怎么解除,说什么改邮箱可能被其他绑定 我要用A4纸做简历封面,怎么做啊?请帮帮我 举报QQ群的时候怎么选择消息内容 银行卡绑定的支付宝怎么解除 如何把简历封面铺满A4纸!跪求我用的是WORD2013版本 栀子花现在又长出了好多花蕾,还能开花吗 袁小田与成龙一起拍过的电影有哪些 感叹时光飞逝的诗句 微信绑定的QQ邮箱无法解绑,显示被其他码绑定,怎么办? 影片《黄飞鸿》的武术指导是谁? 关于感慨时光飞逝的诗句 寻找一个70/80年代的香港动作片,剧情和功夫熊猫第一部很像,一个老师傅收了两个徒弟,绝招是残拳。 感叹时光飞逝的诗词 手机配件E1000屏幕多少钱 建立单个指定大小的文件 java中怎样快速创建指定大小的文件 如何用VC编写一个创建固定长度文件大小的小软件? 泸天化股票近期什么时候涨 泸天化股票为什么暴跌的最新相关信息 我在中国国航网办理了网上值机手续,但是打印不了登机牌,请问可以去机场打印吗? 已满多少岁的人要负刑事责任 值机无法打印登机牌 已网上值机未打印,是否还必须提前40分钟办登机手续,如果超过10多分钟是否还能打印登机牌? 在深航官网值机成功后,为什么无法打印登机牌呢? 已经在携程办理值机,不能自己打印登机牌吗? 在家中办理的值机但是没法打印机票,可否到机场的自助取票机换登机牌? 木瓜苦了怎么做好吃 《巴啦啦小魔仙》的问题!看过的进来! 买了木瓜,想生吃,但是有点苦。 网上值机在机场还能打登机牌吗? 羽毛球运动在世界的发展现状 河池市业余羽毛球俱乐部发展现状如何? 韶关市羽毛球运动场馆发展现状及对策分别是什么? 我是二手房交易,2020年,12月底房产证过户,现在5月底了,建行一直不放款,问了说等放款?