scromania
Messages postés452Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention11 janvier 2013
-
3 août 2010 à 08:35
scromania
Messages postés452Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention11 janvier 2013
-
3 août 2010 à 10:01
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