/* rexx */
numeric digits 14 /* make it work with numbers >= 2 GB */
do i=1 to 10000
size = 2 * 1024 * 1024 * 1024 /* size in bytes (2 GB) */
file = "work:empty"||i /* file name appended with current file number */
buffsize = 32768
buffer = left("",buffsize,'00'x)
if Open(out,file,write) then do
do while (size >= buffsize)
call WriteCh(out,buffer)
size = size - buffsize
end
if size > 0 then
call WriteCh(out,left(buffer,size))
call Close(out)
end
end
Let it run until you get a "volume xxx is full" message, then press Ctrl-C in the Shell window and click on Cancel.
Don't you think that formatting the drive would be easier than that ?
Bye,
Thomas