Encrypts a file with 256 bit AES Algorithm.

x = object.AESFileEncrypt

The syntax of the AESFileEncrypt 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".

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

Where Cryptocx1 is an instance of a Cryptocx Control.

Dim theResult as String

Cryptocx1.SourceFile = txtSourceFile.Text
Cryptocx1.DestinationFile = txtDestinationFile.Text
Cryptocx1.Password = txtPassword.Text
theResult = Cryptocx1.AESFileEncrypt

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