Windows7文件隨意拖動排列reg補丁后遺癥之丟失了“平鋪視圖”的解決辦法

2011-02-21 11:20:01來源:作者:

Windows7文件夾中的文件隨意拖動排列reg文件補丁后遺癥之丟失了“平鋪視圖”的解決辦法。

Windows7文件夾中的文件隨意拖動排列reg文件補丁后遺癥之丟失了“平鋪視圖”的解決辦法。

將下面的藍色文字部分另存為vbs后綴的文件,然后復制到文檔里面雙擊運行,不要擔心,它只是會重啟下你的桌面而已!

const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath1 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"
strKeyPath2 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU"
strKeyPath3 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
DeleteSubkeys HKEY_CURRENT_USER, strKeypath1
DeleteSubkeys HKEY_CURRENT_USER, strKeypath2
DeleteSubkeys HKEY_CURRENT_USER, strKeypath3
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
    objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
    If IsArray(arrSubkeys) Then
        For Each strSubkey In arrSubkeys
            DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey
        Next
    End If
    objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub

這樣就解決了Windows7文件夾中的文件隨意拖動排列reg文件補丁后遺癥。
相關(guān)文章:Windows7文件夾中的文件隨意拖動排列的解決辦法   

關(guān)鍵詞:win7拖拽文件后遺癥

贊助商鏈接: