{"id":70323,"date":"2005-03-02T22:19:00","date_gmt":"2005-03-02T22:19:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2005\/03\/02\/how-can-i-create-a-folder-on-the-start-menu\/"},"modified":"2005-03-02T22:19:00","modified_gmt":"2005-03-02T22:19:00","slug":"how-can-i-create-a-folder-on-the-start-menu","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-create-a-folder-on-the-start-menu\/","title":{"rendered":"How Can I Create a Folder on the Start Menu?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I create a folder on the Start menu? I want the folder to be named the same as the %username%<\/I> environment variable.

— SB<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, SB. As we are wont to do, we\u2019re going to break this question down into subtasks. We\u2019ll explain how to do each of these subtasks, then at the end put the pieces together to create a single script that solves your problem for you.<\/P>\n

To begin with, we need to figure out the name of the logged-on user (which happens to map to the %username% <\/I>environment variable). That\u2019s easy: we just create an instance of the WSH Network<\/B> object and retrieve the value of the UserName<\/B> property. That\u2019s what we do here:<\/P>

Set objNetwork = CreateObject(“Wscript.Network”)\nstrUser = objNetwork.UserName\nstrPath = “C:\\Documents and Settings\\” & strUser\n<\/PRE>\n
Note that we\u2019ve also created a variable named strPath and assigned it the value C:\\Documents and Settings\\<\/B> plus the user name (e.g., kenmyer<\/B>). That gives us a path to a user folder like C:\\Documents and Settings\\kenmyer<\/B>. If you want to create a shortcut to a different folder (for example, \\\\atl-fs-01\\public\\kenmyer)<\/B>, you just need to change this line of code accordingly.<\/P>\n
Next we need to determine the locations of the Start menu Programs folder. That\u2019s also easy. This time we create an instance of the WSH Shell<\/B> object and call the SpecialFolders<\/B> method, telling SpecialFolders we\u2019d like the location of the Programs folder. We store the folder path in the variable strPrograms:<\/P>
Set objShell = CreateObject(“Wscript.Shell”)\nstrPrograms = objShell.SpecialFolders(“Programs”)\n<\/PRE>\n
(By the way, if you\u2019d like to know the other folder paths you can locate using the SpecialFolders method, take a look at the \u201cWorking With Special Folders\u201d<\/B><\/A> section of the Microsoft Windows 2000 Scripting Guide.)<\/P>\n
Finally we need to create the Start menu shortcut. Here\u2019s the code that does that:<\/P>
Set objShell = CreateObject(“Wscript.Shell”)\nSet objShellLink = objShell.CreateShortcut(strPrograms & “\\” & strUser & “.lnk”)\nobjShellLink.TargetPath = strPath\nobjShellLink.Description = “Home folder for ” & strUser\nobjShellLink.WorkingDirectory = strPath\nobjShellLink.Save\n<\/PRE>\n
Here we again use the WSH Shell<\/B> object, this time calling the CreateShortcut<\/B> method. To create the Start menu shortcut we need to pass CreateShortcut the complete path to the shortcut file we want to create (for example, C:\\Documents and Settings\\kenmyer\\kenmyer.lnk). To determine this path, we simply combine the path to the user folder (C:\\Documents and Settings\\kenmyer<\/B>), a slash (\\<\/B>), the user name (kenmyer<\/B>), and the file extension for a shortcut file (.lnk<\/B>). That\u2019s what we do with this line of code:<\/P>\n
Set objShellLink = objShell.CreateShortcut(strPrograms & “\\” & strUser & “.lnk”)<\/P>\n
Next we assign values to some of the shortcut file\u2019s properties. The TargetPath<\/B> represents the path to the folder; thus we assign it the path to the folder. The Description<\/B> represents the tooltip that appears when you pause the mouse over the item in the Start menu; it gets a simple description indicating that it\u2019s the home folder for the logged-on user. Finally, WorkingDirectory<\/B> represents, well, the working directory for the shortcut; it gets assigned the path to the folder. After assigning these property values we call the Save<\/B> method to save the shortcut file and add it to the Start menu.<\/P>\n
Now, as promised, here\u2019s a script that combines all three of our subtasks:<\/P>
Set objNetwork = CreateObject(“Wscript.Network”)\nstrUser = objNetwork.UserName\nstrPath = “C:\\Documents and Settings\\” & strUser<\/p>\n
Set objShell = CreateObject(“Wscript.Shell”)\nstrPrograms = objShell.SpecialFolders(“Programs”)<\/p>\n
Set objShellLink = objShell.CreateShortcut(strPrograms & “\\” & strUser & “.lnk”)\nobjShellLink.TargetPath = strPath\nobjShellLink.Description = “Home folder for ” & strUser\nobjShellLink.WorkingDirectory = strPath\nobjShellLink.Save\n<\/PRE><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I create a folder on the Start menu? I want the folder to be named the same as the %username% environment variable.— SB Hey, SB. As we are wont to do, we\u2019re going to break this question down into subtasks. We\u2019ll explain how to do each of these subtasks, then […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[11,3,12,5],"class_list":["post-70323","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-folders","tag-scripting-guy","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I create a folder on the Start menu? I want the folder to be named the same as the %username% environment variable.— SB Hey, SB. As we are wont to do, we\u2019re going to break this question down into subtasks. We\u2019ll explain how to do each of these subtasks, then […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70323","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=70323"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70323\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=70323"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=70323"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=70323"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}