madmasles
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #include <WinAPIEx.au3>
Local $s_Drive = 'E:\'
Local $i_DSF, $i_SizeFiles = 1024 ^ 3 * 64, $i_CountFiles, $s_File, $h_File
$i_DSF = DriveSpaceFree($s_Drive) * 1024 ^ 2
ConsoleWrite('До: ' & _WinAPI_StrFormatByteSize($i_DSF) & @LF)
While $i_DSF
$i_CountFiles = Int($i_DSF / $i_SizeFiles)
If $i_CountFiles Then
$s_File = $s_Drive & 'Block_' & StringRegExpReplace(_WinAPI_StrFormatByteSize($i_SizeFiles), '[^\wА-Яа-я]', '_') & '.blc'
For $i = 1 To $i_CountFiles
$h_File = _WinAPI_CreateFileEx(_WinAPI_PathYetAnotherMakeUniqueName($s_File), $CREATE_NEW, $GENERIC_WRITE)
_WinAPI_SetFilePointerEx($h_File, $i_SizeFiles, $FILE_BEGIN)
_WinAPI_SetEndOfFile($h_File)
_WinAPI_CloseHandle($h_File)
Next
EndIf
$i_DSF = Mod($i_DSF, $i_SizeFiles)
$i_SizeFiles /= 2
WEnd
ConsoleWrite('После: ' & _WinAPI_StrFormatByteSize(DriveSpaceFree($s_Drive) * 1024 ^ 2) & @LF) |
|
Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 07:03 14-07-2015 | Исправлено: madmasles, 19:41 14-07-2015 |
|
