Ajouter un élément au menu "envoyer à" pour TOUS les utilisateurs (winxp)

Voici une idée:

Mettez un fichier .bat dans votre dossier de démarrage Tous les utilisateurs (afin qu'il soit exécuté chaque fois que quelqu'un se connecte).

Le fichier .bat copiera ensuite le raccourci vers le dossier SendTo des utilisateurs.

Quelque chose comme:

copy "c:\Notepad.lnk" "%userprofile%\SendTo" /Y 

(Remplacez Notepad.lnk par votre propre raccourci)

Simple.

Lorsque j'avais l'habitude d'utiliser Windows, je personnaliserais le menu SendTo à l'aide d'un joli petit programme appelé 'Envoyer aux jouets'. Vous pouvez encore le télécharger ici . Je ne peux pas vous dire si cela fonctionne pour tous les utilisateurs ou non; Il se peut qu'il faille bien.

Le dossier SendTo est déterminé par utilisateur (généralement dans C: \ Documents and Settings \ USER \ SendTo). C'est un chemin absolu qui se trouve dans le registre, il n'y a pas de dossier SendTo commun qui s'applique à tous les utilisateurs. Vous pouvez cependant modifier facilement l'emplacement du dossier SendTo sans se confondre dans le registre.

En cliquant simplement avec le bouton droit de la souris, faites glisser le dossier SendTo vers le nouvel emplacement et sélectionnez "Déplacer vers". L'entrée de registre sera automatiquement mise à jour pour cet utilisateur. Malheureusement, vous devez le faire pour chaque utilisateur, ou charger la ruche de registre de cet utilisateur et l'éditer manuellement (à nouveau, par utilisateur).

Il serait préférable de mettre à jour le registre d'un utilisateur (en utilisant «Déplacer vers» ou manuellement), puis exporter cette clé de registre vers un fichier. Ensuite, distribuez ce fichier aux utilisateurs et faites-les double-cliquer eux-mêmes, fusionnant le nouvel emplacement SendTo dans leurs registres respectifs.

La clé se trouve à HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders et mon emplacement par défaut était le chemin absolu, C:\Documents and Settings\Grant\SendTo

Le contenu du fichier any.reg qui pourrait être distribué ressemblerait à:

 Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders] "SendTo"="C:\\Documents and Settings\\Grant\\SendTo" 

Sauf avec le nouvel emplacement du fichier.

Selon l' utilisation du dossier "Envoyer vers" dans Windows 2000 ou supérieur …

Si vous souhaitez que les raccourcis soient disponibles pour tous les utilisateurs, ajoutez les raccourcis vers C: \ Documents and Settings \ All Users. Étant donné que ce dossier n'existe pas par défaut dans Windows 2000 ou XP, vous pouvez copier le dossier d'un utilisateur existant et le renommer dans "Tous les utilisateurs" ou créer un nouveau dossier et entrer le nom du dossier comme SendTo.

Si vous ne pouvez pas voir le dossier SendTo dans l'Explorateur Windows, vous devrez peut-être allumer la possibilité de voir le dossier caché et système en procédant comme suit:

• Ouvrez l'Explorateur Windows.
• Sélectionnez Outils -> Options des dossiers dans le menu.
• Cliquez sur l'onglet "Afficher".
• Dans la fenêtre "Paramètres avancés", il existe une option pour "Fichiers et dossiers cachés".
• Sélectionnez "Afficher les fichiers et dossiers cachés".
• Cliquez sur Appliquer, mais ne fermez pas le formulaire de dialogue.
• Pour appliquer ces paramètres à tous les dossiers, cliquez sur "Appliquer à tous les dossiers" dans la section "Affichage des dossiers" de cette boîte de dialogue (en haut).
• Cliquez sur OK pour quitter la boîte de dialogue.

Modifier par commentaires: Est-ce que l'un de vos raccourcis SendTo personnalisés s'affiche? Vous pouvez manquer une entrée de registre ou une inscription. Vérifiez les raccourcis dans le dossier "Envoyer à" n'apparaissant pas dans le menu? , Voir si cela contribue du tout.

Essayez cette fonction, il trouvera des dossiers SendTo pour tous les utilisateurs.

 Private Function GetSendToPaths() As String() Dim localsendto As String = Environment.GetFolderPath(Environment.SpecialFolder.SendTo) Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile) Dim subuser As String = Path.GetDirectoryName(userpath) Dim subsendto As String = localsendto.Substring(userpath.Length) Dim dirinfo As New DirectoryInfo(subuser) Dim paths As New List(Of String) For Each dir As DirectoryInfo In dirinfo.GetDirectories Dim path As String = dir.FullName & subsendto If Directory.Exists(path) Then Dim dirpath As String = dir.FullName & "\Contacts" If Directory.Exists(dirpath) Then If New DirectoryInfo(dirpath).GetFiles.Length > 0 Then paths.Add(path) End If End If End If Next Return paths.ToArray End Function