[Solved] File creation limit

[UEZ]

Why is there a limitation when creating files to hard disk?

E.g.

Local $dummy, $i, $path
For $i = 1 To 4096 ;4k filesize
    $dummy &= Chr(Random(33, 126, 1))
Next
$path = "E:\Test\Test."
For $i = 1 To 555
    FileOpen($path & $i, 2 + 8)
    FileWrite($path & $i, $dummy)
    FileClose($path & $i)
Next

This script will create 4k files on drive E: / folder Test with name Test.1 - Test.509 whereas last file is empty, although the For / Next loop is from 1 to 555.

Is this a limitation?

Thanks.

UEZ

Edited November 8, 2010 by UEZ

[dbzfanatic]

Why do you need to make that many files?

[UEZ]

Why do you need to make that many files?

Why not?

The reason is that my ext. 2.5" drive (80 GB) has a lot of bad sectors and I want to fill the whole disk with files to check them which are corrupt.

Only "good" files will be deleted - the rest will allocate bad sectors.

I wrote already a GUI but noticed that it creates only up to 509 files!

UEZ

[Bowmore]

you are mixing file handles and filenames. This line in your code 'FileOpen($path & $i, 2 + 8)' is opening a opening a file that you never close so you run out of available file handels when you reach 509

From the the help file

"Note: Do not mix filehandles and filenames, i.e., don't FileOpen a file and then use a filename in this function. Either use filehandles or filenames in your routines, not both."

use either this method

Local $dummy, $i, $path, $hfile

For $i = 1 To 4096 ;4k filesize
    $dummy &= Chr(Random(33, 126, 1))
Next
$path = "E:\Test_1\Test."
For $i = 1 To 555
    $hfile = FileOpen($path & $i, 2 + 8)
    FileWrite($hfile, $dummy)
    FileClose($hfile)
NextoÝ÷ Øêí+&zØhu«­¢+Ù1½°ÀÌØíÕµµä°ÀÌØí¤°ÀÌØíÁÑ ()½ÈÀÌØí¤ôÄQ¼ÐÀäØìѬ¥±Í¥é(ÀÌØíÕµµäµÀìô
¡È¡I¹½´ ÌÌ°ÄÈذĤ¤)9áÐ(ÀÌØíÁÑ ôÅÕ½ÐíèÀäÈíQÍÑ|ÈÀäÈíQÍиÅÕ½Ðì)¥É
ÉÑ ÅÕ½ÐíèÀäÈíQÍÑ|ÈÅÕ½Ðì¤)½ÈÀÌØí¤ôÄQ¼ÔÔÔ(¥±]É¥Ñ ÀÌØíÁÑ µÀìÀÌØí¤°ÀÌØíÕµµä¤)9áÐ

[UEZ]

you are mixing file handles and filenames. This line in your code 'FileOpen($path & $i, 2 + 8)' is opening a opening a file that you never close so you run out of available file handels when you reach 509

From the the help file

"Note: Do not mix filehandles and filenames, i.e., don't FileOpen a file and then use a filename in this function. Either use filehandles or filenames in your routines, not both."

use either this method

Local $dummy, $i, $path, $hfile

For $i = 1 To 4096 ;4k filesize
    $dummy &= Chr(Random(33, 126, 1))
Next
$path = "E:\Test_1\Test."
For $i = 1 To 555
    $hfile = FileOpen($path & $i, 2 + 8)
    FileWrite($hfile, $dummy)
    FileClose($hfile)
NextoÝ÷ Øêí+&zØhu«­¢+Ù1½°ÀÌØíÕµµä°ÀÌØí¤°ÀÌØíÁÑ ()½ÈÀÌØí¤ôÄQ¼ÐÀäØìѬ¥±Í¥é(ÀÌØíÕµµäµÀìô
¡È¡I¹½´ ÌÌ°ÄÈذĤ¤)9áÐ(ÀÌØíÁÑ ôÅÕ½ÐíèÀäÈíQÍÑ|ÈÀäÈíQÍиÅÕ½Ðì)¥É
ÉÑ ÅÕ½ÐíèÀäÈíQÍÑ|ÈÅÕ½Ðì¤)½ÈÀÌØí¤ôÄQ¼ÔÔÔ(¥±]É¥Ñ ÀÌØíÁÑ µÀìÀÌØí¤°ÀÌØíÕµµä¤)9áÐ

Thanks for your help.

I need to save path to a variable instead opening the handle which is limited to 509 handles.

UEZ