实用Windows隐藏文件VBScript脚本hidefile.vbs详解

hidefile.vbs是适配Windows脚本宿主（WSH）的轻量级VBScript实用工具，核心功能为快速隐藏/取消隐藏本地文件、文件夹，操作无需打开文件夹视图设置，门槛极低：既可直接将目标对象拖拽至脚本执行默认隐藏，也可通过命令行附带目标路径与可选参数（0恢复可见，1隐藏）切换，底层依赖Windows内置FileSystemObject（FSO），通过调整对象“隐藏”“系统”属性组合实现可见性管理，适配多数Windows桌面/服务器版本。

在Windows系统中，我们有时需要快速隐藏一些临时文件或私密文件，除了系统自带的“隐藏属性”设置，一个简单的hidefile.vbs脚本就能帮我们一键完成操作，本文就来聊聊这个小脚本的作用、编写和使用方法。

什么是hidefile.vbs？

hidefile.vbs是基于VBScript（Visual Basic Scripting Edition）编写的脚本文件，主要功能是通过修改文件或文件夹的系统属性，将其设置为隐藏状态，相比手动右键设置，这个脚本可以更便捷地批量或通过简单的操作隐藏,对不熟悉系统设置的用户提供了一种快速方案。

一个简单的hidefile.vbs示例

下面是一个基础的hidefile.vbs代码示例,我们可以直接复制使用：

' hidefile.vbs - 隐藏文件/文件夹脚本
Dim objFSO, objFile, strPath
' 获取用户输入的文件路径
strPath = InputBox("请输入要隐藏的文件或文件夹完整路径：", "隐藏文件工具")
If strPath = "" Then WScript.Quit ' 若用户取消则退出
' 创建FileSystemObject对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查路径是否存在
If objFSO.FileExists(strPath) Or objFSO.FolderExists(strPath) Then
    ' 获取文件/文件夹对象
    If objFSO.FileExists(strPath) Then
        Set objFile = objFSO.GetFile(strPath)
    Else
        Set objFile = objFSO.GetFolder(strPath)
    End If
    ' 设置属性：隐藏+系统（更难被普通显示）
    objFile.Attributes = objFile.Attributes + 2 + 4 ' 2=隐藏，4=系统
    MsgBox "已成功隐藏！" & vbCrLf & strPath, vbInformation, "完成"
Else
    MsgBox "路径不存在，请检查后重试！", vbExclamation, "错误"
End If
' 释放对象
Set objFSO = Nothing
Set objFile = Nothing

代码解析

上面的代码是如何工作的？

获取用户输入：通过InputBox弹出对话框，让用户输入需要隐藏的文件/文件夹路径；
创建文件系统对象：Scripting.FileSystemObject是VBScript中用于操作文件系统的核心对象；
检查路径有效性：先判断输入的路径是否存在,避免报错；
设置属性：将文件属性添加“隐藏（2）”和“系统（4）”属性——加上系统属性后，即使在“文件夹选项”中勾选“显示隐藏的文件、文件夹和驱动器”，也不会直接显示（需同时取消“隐藏受保护的操作系统文件”才能看到）。

如何使用这个脚本？

保存脚本：将上面的代码复制到记事本中，点击“文件”→“另存为”，文件名填写hidefile.vbs，保存类型选择“所有文件”，编码建议选ANSI（避免中文乱码）；
运行脚本：双击保存好的hidefile.vbs，在弹出的对话框中粘贴文件/文件夹的完整路径（比如C:\Users\你的用户名\Desktop\测试文件夹）,点击确定即可；
恢复显示的小脚本：如果想把隐藏的文件找回来，可以再写一个showfile.vbs，把上面代码中设置属性的部分改成objFile.Attributes = objFile.Attributes - 2 - 4,运行后输入相同路径即可恢复。