Create a big size file

[usera]

Greeting,

I am looking for a way to create a big size (like 100mb) file.

The content of the file could be anything not important. the important is the size need to be exactly and big.

what is the best way.

Thanks

usera

[czardas]

This is a strange request. What will you do with it after you create it?

Here's a slow method, and I'm not sure of the exact size you will get.

Local $data = ""
While StringLen($data) < 10000000
    $data &= Chr(Random(32, 126, 1))
WEnd
For $i = 1 To 100
    FileWrite("bigFile.txt", $data)
Next

oops, I missed something. Okay, something like this would be faster:

Local $data = "00000000000000000000000000000000"
While StringLen($data) < 1000000
    $data &= $data
WEnd
For $i = 1 To 100
    FileWrite("bigFile.txt", $data)
Next

Edited October 27, 2010 by czardas

[Varian]

A quick google search for "create big size file" finds "fsutil"

$Size_In_MB = 200
$Size = Number(1024*1024*$Size_In_MB)
RunWait('fsutil file createnew NewFile ' & $Size, @DesktopDir, @SW_HIDE)
If Not FileExists(@DesktopDir & '\NewFile') Then Exit MsgBox(0, 'ERROR', 'Cannot create NewFile')
$ReadSize = FileGetSize(@DesktopDir & '\NewFile') / 1024 / 1024
Msgbox(32, 'File Created', 'NewFile size: ' & $ReadSize & ' MB')

[KaFu]

Or use FileSetPos()...

#include <Constants.au3>

Local Const $sFile = "test.txt"
Local $hFile = FileOpen($sFile, 2)

; Check if file opened for writing OK
If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileSetPos($hFile, (1024*1024*100)-1, $FILE_BEGIN)
FileWrite($hFile, 0)

; Close the handle.
FileClose($hFile)

[Mison]

What is it for? Just curious.

[adik2dmax666]

I think he is trying to make a bloater.

[usera]

What is it for? Just curious.

Thanks for ask, the reason for this, is a software (utility) need test for exactly size file for open and read it and have to be big

Thanks

usera

[usera]

Or use FileSetPos()...

#include <Constants.au3>

Local Const $sFile = "test.txt"
Local $hFile = FileOpen($sFile, 2)

; Check if file opened for writing OK
If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileSetPos($hFile, (1024*1024*100)-1, $FILE_BEGIN)
FileWrite($hFile, 0)

; Close the handle.
FileClose($hFile)

works and thanks