Securely Deletes a file (Shreds)

x = object.ShredFile

The syntax of the ShredFile method has these parts:

 

Part	Description
object	A Cryptocx v7 control.
x	A string that becomes either "TRUE" or "Error: xxx" where xxx is the error message.

If for whatever reason the method fails to complete, the method will return some text stating exactly what has gone wrong, if the method runs ok then the output from the method will = "TRUE".

You have to specify the SourceFile to Shred.

"TRUE" or a string stating what went wrong beginning with "Error:"

Where Cryptocx1 is an instance of a Cryptocx Control.

Dim theResult As String
Dim Cryptocx As New EasyByte_Software.Cryptocxv7

Cryptocx.LicenseKey = "DEMO"
Cryptocx.SourceFile = txtShred.Text

theResult = Cryptocx.ShredFile


'' Check to see what has happened (if the shredding went ok without errors)
''
If theResult = "TRUE" Then
  '' Ok, the shredding went well with no errors
Else
  MsgBox theResult
End If


'' Free up Memory Resources
''
Set Cryptocx = Nothing