ErrorCode

Signaler
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Alors voila j'ai un boutton enregistrer mais le probleme c'est qu'il ne s'execute pas j'ai une erreur de se style:
--vérifier la propriété errorcode de l'exception pour déterminer le HRESULT......

le code:

Private Sub Buttonenregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonenregistrer.Click
Me.SaveFile1.ShowDialog()
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String
Bureau = New IWshRuntimeLibrary.WshShell

' Chemin et nom du raccourci
VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & Me.SaveFile1.FileName.ToString

Raccourci = Bureau.CreateShortcut(VarTrav.ToString)


' Cible
Raccourci.TargetPath = Me.TextBoxchemin.Text

' Icône
Raccourci.IconLocation = Me.PictureBoxico.ImageLocation


' Enregistrement
Raccourci.Save()

End Sub

12 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
et quel est le numéro de l'errorcode ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

Cette erreur la:

(Exception de HRESULT : 0x80020009 (DISP_E_EXCEPTION))
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,

Jde pense que CETTE LECTURE (à lire complètement, de A à Z, ainsi que les commentaires qui la suivent) devrait t'aider assez


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

Merci
je vais lire attentivement
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

Pas mal mais le probleme c'est que je programme en VB.net
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

je comprend pas les emoticone
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
je comprend pas les emoticone

Ils correspondent, point pour point, à la mienne, d'incompréhension (voire surprise !).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
51
Salut
ici
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
51
quel filename donnes tu dans le savedialogbox
il faut mettre une extension .lnk
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

C'est bon j'ai trouvé
Merci a vous

voici le bon code :
Private Sub Buttonenregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonenregistrer.Click
Me.SaveFile1.ShowDialog()
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String
Bureau = New IWshRuntimeLibrary.WshShell

' Chemin et nom du raccourci
VarTrav = Me.SaveFile1.FileName + ".lnk" 'a ajouter

Raccourci = Bureau.CreateShortcut(VarTrav.ToString)


' Cible
Raccourci.TargetPath = Me.TextBoxchemin.Text

' Icône
Raccourci.IconLocation = Me.PictureBoxico.ImageLocation


' Enregistrement
Raccourci.Save()

End Sub
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
possible aussi de passer par du code 100% managé :

http://sourceforge.net/projects/shellify/

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp