IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Créer un raccourcis dans le menu démarrer de Windows


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Créer un raccourcis dans le menu démarrer de Windows
    Bonjour à tous,

    Je débute et j'aimerai créer un raccourcis VBscript dans le menu démarrer de windows, mais j'ai une erreur
    Nom : 2018-01-25_10h15_34.png
Affichages : 581
Taille : 27,2 Ko

    Voici mon code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Option Explicit
    Dim WshShell, strDesktop, oMyShortCut
     
    set WshShell = WScript.CreateObject("WScript.Shell" )  
    strDesktop = WshShell.SpecialFolders("AllUsersStartMenu" )
    Set oMyShortCut = WshShell.CreateShortcut(strDesktop & "\Anniversaires IRC.lnk")
    oMyShortCut.TargetPath = "http://serveur/dossier/Anniversaires.asp"  
    oMyShortCut.Hotkey = ""  
    oMyShortCut.Save
    Wscript.Quit
    Comme je n'ai jamais utilisé VBscript, qui peut me dire ou est le problème ?

    Par avance merci
    Dernière modification par ProgElecT ; 25/01/2018 à 10h54.

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 127
    Par défaut
    Salut

    Citation Envoyé par Erreur signalée à la ligne 11
    bug
    Le code que tu nous fais voir ne contient que 9 lignes.
    Essais d’insérer après la ligne 6 MsgBox strDesktop pour voir si le chemin du dossier AllUsersStartMenu est bien renvoyé.
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Invité
    Invité(e)
    Par défaut
    Salut ProgElect

    Citation Envoyé par ProgElecT Voir le message
    Salut

    Le code que tu nous fais voir ne contient que 9 lignes.
    Essais d’insérer après la ligne 6 MsgBox strDesktop pour voir si le chemin du dossier AllUsersStartMenu est bien renvoyé.
    Ben oui je sais, c'est pour ça que je ne comprenais pas l'erreur

    Et je viens de trouver la solution, que voici
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Option Explicit
    Dim WS, strDesktop, oMyShortCut
    ' Créer l'instance WScript
    set WS=WScript.CreateObject("WScript.Shell")
    ' En cas d'erreur on continue
    On Error Resume Next
    ' Définir le chemin d'accès
    strDesktop = WS.SpecialFolders("AllUsersStartMenu") & "\Programs\Startup\"
    ' Définir le nom du raccourci
    Set oMyShortCut = WS.CreateShortcut(strDesktop & "Anniversaires IRC.lnk")
    ' Définir le lien
    oMyShortCut.TargetPath = "http://serveur/dossier/Anniversaires.asp"
    oMyShortCut.Hotkey = ""
    oMyShortCut.Save
     
     
    if err then msgbox err.description
     
     
    Wscript.Quit
    En tout cas merci de t'être intéressé à mon problème
    Nota : j'ai juste un petit soucis avec l'icone du raccourcis, mais pas grave

  4. #4
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 127
    Par défaut
    Ok

    Nota : j'ai juste un petit soucis avec l'icone du raccourcis, mais pas grave
    Des fois que tu n'ai pas eu l'occasion de voir Comment créer un raccourci vers un site internet où un programme sur le bureau de windows
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. [WD18] Créer Raccourci dans le menu Démarrer/Démarrage
    Par PierreXV dans le forum WinDev
    Réponses: 1
    Dernier message: 24/04/2015, 16h07
  2. [Batch] Rechercher un fichier puis créer son raccourci dans le Menu Démarrer
    Par antislash dans le forum Scripts/Batch
    Réponses: 3
    Dernier message: 12/05/2009, 13h44
  3. Raccourci dans le Menu Démarrer et Bureau
    Par Kerod dans le forum Dreamshield
    Réponses: 9
    Dernier message: 12/02/2008, 04h08
  4. Créer un raccourci dans Démarrage
    Par Montron dans le forum Langage
    Réponses: 4
    Dernier message: 25/04/2006, 22h55
  5. creation d'une raccourcie dans le menu demarre
    Par kenshi dans le forum MFC
    Réponses: 14
    Dernier message: 11/09/2003, 14h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo