ErrorCode

Question

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

Renfield · Answer

et quel est le numéro de l'errorcode  ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

odeesey · Answer

Cette erreur la:

(Exception de HRESULT : 0x80020009 (DISP_E_EXCEPTION))

ucfoutu · Answer

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

odeesey · Answer

Merci
je vais lire attentivement

odeesey · Answer

Pas mal mais le probleme c'est que je programme en VB.net

ucfoutu · Answer

____________________
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

odeesey · Answer

je comprend pas les emoticone

ucfoutu · Answer

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

cs_ShayW · Answer

Salut
ici

cs_ShayW · Answer

quel filename donnes tu dans le savedialogbox
il faut mettre une extension .lnk

odeesey · Answer

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

Renfield · Answer

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

ErrorCode

12 réponses

Votre réponse

Discussions similaires