bonjour,
je viens de recuperer se bout de code et il se trouve qu'il y a une erreur
<>
a aucun endroit il est déclarer je ne vois pas comment faire quelqu'un a une idée.
If ext <> "" Then mainpath &= "." & ext
targetfile = mainpath
CreateKey(TextBox2.Text) 'create the key
Decrypt(sourcefile, targetfile)
Label3.Text = "Finished decryption..."
Exit Sub
End If