Discussion :

[randall]

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

[ProgElecT]

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

[l_autodidacte]

Le dossier Démarrage sera obtenu en remplaçant la ligne 3 du code de ProgElecT(salut) par : ChemDossDemarage = WshShell.SpecialFolders("Startup")