I'm not sure if this is the right location for this post, but how effective of a file shredder would this be, first I'll explain, then show my code for each part.

in the declarations, I've got this.

Dim Random as New Random
            OpenFileDialog1.ShowDialog()
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, Random.Next)
            FileClose()

What it does, you've got an open file dialog, it opens the file, and prints the line (Random.Next) so like random numbers.
then it closes that file, as shown as above.

Then, it repeats that code over 100 times, then uses the My.Computer.FileSystem to Change the File's name & type.

My.Computer.RenameFile(Openfiledialog1.filename, Random.double)
The random DOUBLE saves it as like

0.494758395095

Thus, changing the file name, and type.
So like:
FILE NAME = 0
FILE TYPE = 494758395095

How effective would that be?