vb6 修改注册表 隐藏文件,让文件夹选项失效呢?
时间: 2023-05-18 13:01:59 浏览: 133
VB6 可以使用 Registry 类来访问和修改注册表,也可以通过设置 Windows 文件系统的属性来隐藏文件和禁用文件夹选项。具体做法如下:
1. 隐藏文件
使用 Registry 类可以访问注册表中的 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced 节点,该节点包含可以控制 Windows 文件系统属性的各种键和值,其中 HideFileExt 和 Hidden 分别用于隐藏文件扩展名和隐藏文件。我们可以通过以下代码将 HideFileExt 和 Hidden 值设置为 1,来隐藏所有扩展名和文件:
```
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1, "REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
```
2. 禁用文件夹选项
使用相同的注册表路径,可以设置 FolderOptions 和 ShowSuperHidden 两个值来禁用文件夹选项和显示系统文件。我们可以通过以下代码将 FolderOptions 和 ShowSuperHidden 值设置为 0,来禁用文件夹选项和隐藏系统文件:
```
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\FolderOptions", 0, "REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD"
```
请注意,在修改注册表前请备份注册表,以免出现意外情况导致系统无法正常运行。