Office 2007 Enterprise Key WindowsVista - The mult

[yongkang9447]

Difficulty 1st solution 2nd Resolution

[WindowsVista]The numerous variety is disabled


Issue
Sometimes, the variety of multiple files and folders beneath Vista doesnot work anymore. (a bug that seldom comes about). To solve this difficulty:
1st method Head to this page: Click Resolve Single Decide on link to download the file FixSingleSelect.zip Preserve it towards the desktop, after which extract its contents. Near all windows during the browser open, and do not until eventually the end from the process. Make a double click on around the file FixSingleSelect.vbs which is on the desktop. Verify by clicking Okay.
Wait a moment, then validate the concept.
Restart your Pc and try once again.



If the download hyperlink doesn't work, it is possible to generate the file FixSingleSelect.vbs: Open the notepad. Copy with the following code:


Option Explicit const HKCU = &H80000001 const FWF_SINGLESEL = &H00000040 dim objReg msgbox "Near all Explorer windows before continuing." Set objReg=GetObject("winmgmts:impersonationLevel=impe rsonate!\\.\root\default:StdRegProv") FixBags FixDefaults msgbox "Done! 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,Microsoft Office 2010 Standard Product Key, strShellPath, arrFolderIDs) = 0 Then If Not IsNull(arrFolderIDs) Then For each strFolderID in arrFolderIDs strKeyPath = strShellPath & "\" & strFolderID If objReg.GetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) = 0 Then If (iFFlags AND FWF_SINGLESEL) <> 0 Then iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL))) If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) <> 0 Then Msgbox "SetDWORDValue Failed" Stop If End If Conclude If Next End If Conclude If Conclude If Next Finish Sub '================================================= ================================================== '================================================= ================================================== Sub FixDefaults const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explore r\Streams\Defaults" dim bytTemp,Microsoft Office 2007 Activation, bytFFlags dim iByteIndex dim strFolderID, strViewSettings, strSearch dim arrFolderIDs,Microsoft Office 2007 Professional Plus Activation, arrRegTypes, arrViewSettings If (objReg.EnumValues(HKCU, StreamsPath, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then Exit Sub Stop If For Each strFolderID in arrFolderIDs If objReg.GetBinaryValue(HKCU, StreamsPath, 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, StreamsPath, strFolderID, arrViewSettings) <> 0 Then msgbox "SetBinaryValue Failed" Conclude If Stop If Stop If Next Finish Sub '================================================= ================================================== Function RegKeyExists(sRegKey) dim aValueNames,Microsoft Office Professional Plus 2007 Serial Key, aValueTypes sRegKey = Trim(sRegKey) If objReg.EnumValues(HKCU,Office 2007 Enterprise Key, sRegKey, aValueNames, aValueTypes) = 0 Then RegKeyExists = True Else RegKeyExists = False Finish If Finish Function Save the file by giving it the name FixSingleSelect.vbs Pick out All files of this type.
2nd Method Visit Control Panel> Folder Options (Classic View). Pick out the View tab and click on Reset Folders. Click Yes and after that press the Okay button.

This document entitled &laquo; WindowsVista - The a variety of assortment is disabled &raquo; from Kioskea (en.kioskea.net) is made available below the Creative Commons license. You could duplicate, modify copies of this page, beneath the conditions stipulated by the licence, as this note appears clearly.