Question

求一个能实现显示和隐藏隐藏文件的VBS。要可以自动刷新的。

以前有一个VBS，双击运行可以显示隐藏文件，再运行一次又可以隐藏，并且不需要手动刷新，可以自动刷新。但不知什么时候被优化大师删掉了，我在备份文件夹中找到了那个文件，但打开优化大师的文件恢复中却没有，怎么回事？怎样才能避免被删掉？大侠们帮帮忙，谢谢了先！BAT也可以，关键是要一个文件能同时实现显示和隐藏并且可以自动刷新。
忘了说了，要同时加上文件扩展名。显示隐藏文件时显示文件扩展名，隐藏时都隐藏。
最好不要重启EXPLORER，因为那样的话打开的文件夹都关闭了，我记得以前的那个是相当于自动右键刷新，因此也有时与快捷键E混淆，有时还在输入法中打出一个E.大家帮帮忙吧，祝兔年快乐！如果可以的话给两个吧，一个包括受保护的系统文件，一个不包括。

Answer 1

vbs代码如下：(不重启explorer的)
1、包括系统文件的：
'══代══码══开══始════
set ws=CreateObject("wscript.shell")
path="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
k=ws.regread(path&"HideFileExt")
if k=0 then'显示
ws.regwrite path&"Hidden",2,"REG_DWORD"
ws.regwrite path&"ShowSuperHidden",0,"REG_DWORD"
ws.regwrite path&"HideFileExt",1,"REG_DWORD"
else'不显示
ws.regwrite path&"Hidden",1,"REG_DWORD"
ws.regwrite path&"ShowSuperHidden",1,"REG_DWORD"
ws.regwrite path&"HideFileExt",0,"REG_DWORD"
end if
ws.SendKeys "{f5}+{f10}e"
'Coded By escortmnm from VBS团队
'══代══码══结══束════

2、不包括系统文件的：
'══代══码══开══始════
set ws=CreateObject("wscript.shell")
path="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
k=ws.regread(path&"HideFileExt")
if k=0 then'显示
ws.regwrite path&"Hidden",2,"REG_DWORD"
ws.regwrite path&"HideFileExt",1,"REG_DWORD"
else'不显示
ws.regwrite path&"Hidden",1,"REG_DWORD"
ws.regwrite path&"HideFileExt",0,"REG_DWORD"
end if
ws.SendKeys "{f5}+{f10}e"
'Coded By escortmnm from VBS团队
'══代══码══结══束════