分享我所知道的

显示文件后缀名和隐藏文件的vbs脚本

点击查看原图

Dim WSHShell
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
if WSHShell.RegRead(“HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”) = 1 then
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden”, “0”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”, “2”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt”, “1”, “REG_DWORD”
WSHShell.SendKeys “{F5}+{F10}e”
else
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden”, “1”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”, “1”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt”, “0”, “REG_DWORD”
WSHShell.SendKeys “{F5}+{F10}e”
end if
Set WSHShell = Nothing
WScript.Quit(0)

 

下面有我做好的文件下载:

赞(0)
未经允许不得转载:追梦人博客 » 显示文件后缀名和隐藏文件的vbs脚本
分享到:

评论 抢沙发

评论前必须登录!