Office 2007 Activation Clé WindowsVista - The mul

[yongkang9447]

Problem 1st choice 2nd Choice

[WindowsVista]The multiple choice is disabled


Issue
Sometimes, the selection of many different files and folders under Vista doesnot do the job any more. (a bug that hardly ever transpires). To solve this trouble:
1st choice Visit this page: Click on Resolve Single Pick website link to download the file FixSingleSelect.zip Conserve it to your desktop, then extract its contents. Shut all windows within the browser open, and don't until eventually the finish of your process. Create a double click on on the file FixSingleSelect.vbs that's on the desktop. Validate by clicking Ok.
Wait a second, then validate the concept.
Restart your Personal computer and strive once again.



If the download hyperlink doesn't do the trick, you can actually set up the file FixSingleSelect.vbs: Open the notepad. Duplicate during the following code:


Option Explicit const HKCU = &H80000001 const FWF_SINGLESEL = &H00000040 dim objReg msgbox "Shut all Explorer windows before continuing." Set objReg=GetObject("winmgmts:impersonationLevel=impe rsonate!\\.\root\default:StdRegProv") FixBags FixDefaults msgbox "Done,Office 2007 Activation Clé! Logoff and Logon before opening any Explorer windows." '================================================= ================================================== Sub FixBags const BagsPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags" dim iFFlags dim strBag, strShellPath, strFolderID, strKeyPath dim arrBags, arrFolderIDs objReg.EnumKey HKCU, BagsPath, arrBags For Each strBag in arrBags strShellPath = BagsPath & "\" & strBag & "\Shell" If RegKeyExists(strShellPath) Then If objReg.EnumKey(HKCU, strShellPath, arrFolderIDs) = 0 Then If Not IsNull(arrFolderIDs) Then For each strFolderID in arrFolderIDs strKeyPath = strShellPath & "\" & strFolderID If objReg.GetDWORDValue(HKCU,microsoft office 2010 pro serial key, strKeyPath, "FFlags", iFFlags) = 0 Then If (iFFlags AND FWF_SINGLESEL) <> 0 Then iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL))) If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags",office Professional 2010 64 bit, iFFlags) <> 0 Then Msgbox "SetDWORDValue Failed" Stop If End If End If Next Stop If Conclude If Stop If Next Stop Sub '================================================= ================================================== '================================================= ================================================== Sub FixDefaults const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explore r\Streams\Defaults" dim bytTemp, bytFFlags dim iByteIndex dim strFolderID, strViewSettings, strSearch dim arrFolderIDs, arrRegTypes, arrViewSettings If (objReg.EnumValues(HKCU, StreamsPath, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then Exit Sub Conclude If For Each strFolderID in arrFolderIDs If objReg.GetBinaryValue(HKCU, StreamsPath,Office 2010 32 Bits, strFolderID, arrViewSettings) = 0 Then '--- Convert Byte array to string to facilitate searching --- strViewSettings = "" For each bytTemp in arrViewSettings strViewSettings = strViewSettings & chr(bytTemp) Next strSearch = "F" & chr(0) & "F" & chr(0) & "l" & chr(0) & "a" & chr(0) & "g" & chr(0) & "s" iByteIndex = instr(strViewSettings, strSearch) + 17 bytFFlags = arrViewSettings(iByteIndex) If (bytFFlags AND FWF_SINGLESEL) <> 0 Then arrViewSettings(iByteIndex) = (bytFFlags AND NOT(FWF_SINGLESEL)) If objReg.SetBinaryValue(HKCU,Office 2010 Professionnel Plus, StreamsPath, strFolderID, arrViewSettings) <> 0 Then msgbox "SetBinaryValue Failed" End If End If Stop If Next Stop Sub '================================================= ================================================== Function RegKeyExists(sRegKey) dim aValueNames, aValueTypes sRegKey = Trim(sRegKey) If objReg.EnumValues(HKCU, sRegKey, aValueNames, aValueTypes) = 0 Then RegKeyExists = True Else RegKeyExists = False End If Finish Function Preserve the file by giving it the name FixSingleSelect.vbs Pick out All files of this type.
2nd Method Check out Control Panel> Folder Options (Classic View). Find the View tab and click on Reset Folders. Click Yes then press the Ok button.

This document entitled &laquo; WindowsVista - The many different selection is disabled &raquo; from Kioskea (en.kioskea.net) is made available beneath the Creative Commons license. You are able to copy, modify copies of this page, under the conditions stipulated by the licence, as this note appears clearly.