VBS勾选“不显示隐藏的文件和文件夹”
来源:百度知道 编辑:UC知道 时间:2024/06/08 18:15:32
VBS勾选“不显示隐藏的文件和文件夹”
用VBS 怎么写?
二楼的好像不能用哈 我是用记事本复制的
用VBS 怎么写?
二楼的好像不能用哈 我是用记事本复制的
试试我这个
Set ws = WScript.CreateObject("WScript.Shell")
'隐藏已知文件类型,让系统不显示文件后缀名
Val = ws.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\CheckedValue", 1,"REG_DWORD" )
'不显示隐藏文件和文件夹,让系统把隐含文件和系统文件都藏起来
Val = ws.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue", 2,"REG_DWORD" )
Val = ws.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1,"REG_DWORD" )
MsgBox "完成"
修改注册表.