ErrorCode

odeesey
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013
- 13 janv. 2012 à 01:11
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
- 16 janv. 2012 à 07:13
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
A voir également:

12 réponses

Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
13 janv. 2012 à 09:20
et quel est le numéro de l'errorcode ?

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

13 janv. 2012 à 11:35
Cette erreur la:

(Exception de HRESULT : 0x80020009 (DISP_E_EXCEPTION))
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
13 janv. 2012 à 12:04
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
0
odeesey
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

13 janv. 2012 à 13:05
Merci
je vais lire attentivement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
odeesey
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

13 janv. 2012 à 13:08
Pas mal mais le probleme c'est que je programme en VB.net
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
13 janv. 2012 à 13:46
____________________
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
0
odeesey
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

13 janv. 2012 à 14:16
je comprend pas les emoticone
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
13 janv. 2012 à 14:31
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
0
cs_ShayW
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
56
13 janv. 2012 à 14:49
Salut
ici
0
cs_ShayW
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
56
13 janv. 2012 à 14:56
quel filename donnes tu dans le savedialogbox
il faut mettre une extension .lnk
0
odeesey
Messages postés
22
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
27 février 2013

13 janv. 2012 à 16:08
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
0
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
16 janv. 2012 à 07:13
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
0