Shortest code for infinite disk I/O

Question

(Just open 50 tabs in Google Chrome :D (just kidding, no you can't))

Shortest code for infinite disk I/O any language, C# example:

using System.IO;

namespace FileApp {
    static class Program {
        public static void Main() {
            do {
                File.WriteAllText("a", "a");
                File.Delete("a");
            } while (true);
        }
    }
}

You can't just fill the entire disk though, as then it would halt in the end and would be finite.

And you can't do reading only, infinite writing has to happen. (It has to kill my SSD after enough runtime.)

Get cracking! :)

Answer 1

Lua, 39 bytes

while''do io.open('a',"w"):write('')end

Answer 2

C++, 61 bytes. (or 66 bytes to actually hit the disk on Linux+XFS+lazytime)

Timestamp metadata I/O only:

#include <fstream>
int main(){for(;;){std::ofstream a("a");}}

The disk I/O is due to a's mod time changing, which will be written to disk occasionally. (very occasionally with the commonly-use lazytime mount option. Also see my C answer.)

---

Write data before closing:

#include <fstream>
int main(){for(;;){std::ofstream a("a");a<<4;}}

Actually hits the disk: lights up my hard drive light. (Linux 4.2.0, XFS, lazytime)

---

The ofstream constructor opens the file, and the destructor closes it again. There are no resource leaks, so this will actually run forever without running out of memory, file handles, or disk space.

strace output:

open("a", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 3
write(3, "4", 1)                        = 1      # not present with first version
close(3)                                = 0
... repeating

Answer 3

C99, 84 bytes

#include<stdio.h>
int main(){while(1){FILE*f=fopen("a","w");fputc(9,f);fclose(f);};}

If you don't care about buffers, you can do this instead:

---

C99, 65 bytes

#include<stdio.h>
int main(){while(1){fputc(9,fopen("a","w"));};}

I don't know if it closes automatically (no file handle), so please comment and I'll edit.

---

Lots of \ts to write (relax, they're not infinite!).

Answer 4

Tcl, 36 bytes

set f [open a w]
while 1 {puts $f .}

Try it online!