VB中使用以下代码可以快速、几乎是瞬间创建出一个2GB大小的文件。
ps.不要做坏事喔-
Dim path As String
path = InputBox("Folder", "2GB file creator", "C:\2gb.dat")
Dim fn As Integer
fn = FreeFile
Open path For Binary As #fn
Seek #fn, &H7FFFFFFE
Put #fn, , CByte(0)
Close #fn
MsgBox "Done"
转载请保留链接：https://ilovetile.sijie.wang/846/ 感谢您对版权的尊重
收藏这篇文章咯！
试了一下。。貌似是错误啊。。创建不了
我测试可以啊，是不是你弄错了？
记下 留着以后做坏事啦
@爱博客 哈哈
VB做界面还是来得快，上手容易。之前有用过做了几个项目，感觉不错。呵呵。
@平步博客 不过VB要编出专业一点的软件不容易啊，需要高手才可以
好好学习啊
来支持下了~~~
支持下了，路过
过来看看 留个脚印
看看滴 关注一下
来个VC SDK的.. 🙂
HANDLE hFile = ::CreateFile(_T(“C:\\xxoo.txt”),
GENERIC_READ | GENERIC_WRITE,
FILE_SHARE_READ, NULL, CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL, NULL);
if(INVALID_HANDLE_VALUE != hFile)
{
LARGE_INTEGER liFileSize;
liFileSize.QuadPart = 0x100000000;
if(::SetFilePointerEx(hFile, liFileSize, NULL, FILE_BEGIN))
{
::SetEndOfFile(hFile);
}
::CloseHandle(hFile);
}