ab.com コミュニティ

ありがとう。

#console
Dim hFile As DWord, buffer As DWord, count As DWord,writen As DWord

hFile=CreateFile("testfile2", GENERIC_WRITE, 0, ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
buffer=malloc(1024*1024)
FillMemory(buffer, 1024*1024, Asc("a"))
For count=0 To 5000
	Locate 0,0:Print count;"/";5000
	WriteFile(hFile,buffer,1024*1024,VarPtr(writen),ByVal 0)
Next
free(buffer)
CloseHandle(hFile)
Print "END"

エラーにはならない。

4GB以上のファイルが無いとのことだが、自分で作るという発想はないの？
[code]
#console
Dim hFile As DWord, buffer As DWord, count As DWord,writen As DWord

hFile=CreateFile("testfile2", GENERIC_WRITE, 0, ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
buffer=malloc(1024*1024)
FillMemory(buffer, 1024*1024, Asc("a"))
For count=0 To 5000
Locate 0,0:Print count;"/";5000
WriteFile(hFile,buffer,1024*1024,VarPtr(writen),ByVal 0)
Next
free(buffer)
CloseHandle(hFile)
Print "END"
[/code]

GetFileSize()関数の第２引数に NULL を指定して4GByte以上のファイルに

アクセスした場合、「戻り値」は、常に-1(&hffffffff)に成りますか？

4GByte以上のファイルが無くテスト出来ないので宜しくお願いします。