Securely wipes a file using 7-pass DOD standards.
VB6/VBA
Debug.Print "Testing WIPE_File ..."
nRet = WIPE_File("ToDelete.txt", 0)
Debug.Print "WIPE_File returns " & nRet & " (expected 0)"
Output
Testing WIPE_File ... WIPE_File returns 0 (expected 0)
VB.NET
Console.WriteLine("Testing WIPE_File ...")
Dim isOK As Boolean
isOK = Wipe.File("ToDelete.txt")
Console.WriteLine("Wipe.File returns " & isOK & " (expected True)")
[Contents]