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

  1. #1
    Candidat au Club
    Copier un fichier .vbs dans le dossier démarrage de Windows
    Bonjour,


    Dans un fichier . vbs j'ai des msgbox avec une série d'instructions,je voudrais copier ce fichier disons instructions.vbs dans le dossier démarrage de Windows soit shell.starter pour le remettre à plusieurs personnes qui ont des difficultés à trouver le dossier démarrage

    Comment faut il s'y prendre

    Merci pour la réponse

  2. #2
    Rédacteur/Modérateur

    Salut

    Une façon de faire
    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
             dim WshShell, ChemDossDemarage
             set WshShell = CreateObject("WScript.Shell")
             'ChemDossDemarage = WshShell.SpecialFolders("StartMenu")
             ChemDossDemarage = WshShell.SpecialFolders("Startup")
             'msgbox "chemin complet du dossier démarrage du sessioniste " & ChemDossDemarage
             set WshShell = Nothing
     
             Dim fso, Fsrc, Fdest
             Set fso = CreateObject("Scripting.FileSystemObject")
     
             Set Fsrc = fso.GetFile("CheminDuFichierSource\NomDuFichier.vbs")
             Fdest = ChemDossDemarage & "\NomDuFichier.vbs"
             Fsrc.Copy (Fdest)
             Set Fsrc = Nothing
             'msgbox "Fichier copié dans le dossier démarrage"


    Edit:
    correction du code bien vu par l_autodidacte
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Modérateur

    Le dossier Démarrage sera obtenu en remplaçant la ligne 3 du code de ProgElecT(salut) par : ChemDossDemarage = WshShell.SpecialFolders("Startup")
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

###raw>template_hook.ano_emploi###