Discussion :

[imparator_42]

J'ai cherché sur le forum mais je n'ai pas pu trouver

ou a moins que c'est passé juste à côté

Je voudrais avoir ce dossier :

C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage

Avec les variables
Genre pour avoir le dossier :

C:\Documents and Settings\All Users

j'utilise le variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("ALLUSERSPROFILE")

Voila je voudrais avoir un variable du même type. (Enfin si ça existe bien sûr)

But : Je voudrais copier des fichiers au dossier démarrage de tous les utilisateurs pour qu'au démarrage les éléments misent s'ouvrent tout seul pour n'importe quelle session du Windows.

Merci de m'aider

[supersnail]

essaie plûtot de passer par le registre (HKLM\Software\Microsoft\Windows\CurrentVersion\Run)...

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
strTaChaine = WshShell.SpecialFolders("AllUsersStartMenu")

je suppose. Voir
http://vb.developpez.com/faqvbs/?pag...SpecialFoldres

[supersnail]

Bidou,euh c'est plûtot du VBScript là...

[bidou]

certes mais ca marche aussi en VB6 ou en VBA. En fait ca marche sur toute les plateformes win32 qui ont le wshom

[ucfoutu]

Bonjour,

ou encore :

Lire la valeur Common Startup de la clé (de la base de registre) :

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

et rester indépendant

[imparator_42]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
strTaChaine = WshShell.SpecialFolders("AllUsersStartMenu")

je suppose. Voir
http://vb.developpez.com/faqvbs/?pag...SpecialFoldres

Je suis allé voir le lien.
mais il m'affiche une erreur

Run-Time error "424"
Object required

Et il me montre la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WshShell = WScript.CreateObject("WScript.Shell")

Et quand je mets le curseur sur WshShell il m'affiche :

WshShell = Empty

[bidou]

alors il faut aller récupérer la clé de registre que t'a indiqué ucfoutu ou taper dans l'API SHGetSpecialFolderLocation en priant que tu ne t'exécutes pas sur un poste à registre protégé.

[SfJ5Rpw8]

Je suis allé voir le lien.
mais il m'affiche une erreur

Et il me montre la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WshShell = WScript.CreateObject("WScript.Shell")

Et quand je mets le curseur sur WshShell il m'affiche :

en VB6 .. suffit pas de copier tel quel le code VBScript ... ici il te suffit d'enlever WScript ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set WshShell = CreateObject("WScript.Shell")
strTaChaine = WshShell.SpecialFolders("AllUsersStartMenu")

[bidou]

c'est pas beau de vieillir

[imparator_42]

Bon j'ai trouver mieu dans le forum, en recherchant le mot "Common startup"

Bon merci Ucfoutu

http://www.developpez.net/forums/sho...Common+Startup

ici y a tous les répertoire spécial , c'est trop bien quoi :d

Merci à tous qui se sont donné la peine de lire

en VB6 .. suffit pas de copier tel quel le code VBScript ... ici il te suffit d'enlever WScript ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set WshShell = CreateObject("WScript.Shell")
strTaChaine = WshShell.SpecialFolders("AllUsersStartMenu")

Oui excuse moi

J'avais pas vue , enfin j'ai pas fait gaffe, parce que j'ai mon bac d'un coté

Ou on aurait pu déclarer WScript (enfin peut-être)