WIPE_File securely wipes and deletes a file using 7-pass DOD standards.
Public Declare Function WIPE_File Lib "diCryptoSys.dll"
(ByVal strFileName As String, ByVal nOptions As Long) As Long
nRet = WIPE_File(strFileName, nOptions)
String specifying the file to be deleted.Long option flags: not used in this release. Specify zero.
long _stdcall WIPE_File(const char *szFileName, long flags);
Long: If successful, the return value is zero;
otherwise it returns an error code.
Wipes a file using the 7-pass DOD Standard according to [NISPOM] before deleting.
Dim nRet as Long
Dim strFileName as String
strFileName = "ToDelete.txt"
nRet = WIPE_File(strFileName, 0)
If nRet = 0 Then
Debug.Print "Deleted File '" & strFileName & "' OK"
Else
Debug.Print "ERROR: Unable to delete file '" & strFileName & "'"
End If