destroying hard drive

[Thread1]

Sorry for the interruption but...

Simply, open the file for output will re-create the file and then finally delete the file. I think this will surely hard to recover the data or nothing can be revied at all..

hFile = FreeFile()
Open "c:\myConfi.txt" For Output As #hFile
Close #hFile
Kill "c:\myConfi.txt"

But as the majority said that overwriting the file would be much safer..

hFile = FreeFile()
Open "c:\myConfi.txt" For Binary As #hFile
Put #hFile,, String$(LOF(hFile), vbNullChar)
Close #hFile
Kill "c:\myConfi.txt"

Goodluck!