|Sample Visual Basic
Code to Shred a file:
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
'' Free up Memory Resources
Set Cryptocx = Nothing