![]() If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then Set objFolder = objFSO.GetFolder(strFolder) If objFSO.FolderExists (fldr) Then Call GetHotKeys (fldr) ![]() "\Microsoft\Internet Explorer\Quick Launch" _ , WshShell.SpecialFolders("AllUsersStartMenu") _ WshShell.SpecialFolders("AllUsersDesktop") _ ![]() 'Author: Ramesh Srinivasan, for The Winhelponline Blogĭim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")ĭim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell")ĭim arrFolders, objFolder, fldr, colfiles, colFoldersĭim objFile, objSubFolder, oShellLink, strHotKey 'Script Info: Obtains the List of Shortcuts With a Hotkey assigned
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |