【SecureLock】藏起你的秘密文件！

我们都知道，在 Windows 中可以右键文件夹，选择”属性“，勾选”隐藏“来实现隐藏某个文件夹。

我们还知道，在 Windows 中可以选择勾选 ”显示隐藏的项目和文件夹“，来使上述方法变得形同虚设。

本工具就是用于解决以上痛点的。

不用再担心将电脑借给别人时，被别人无意发现电脑里的小秘密了！

一些 Q&A：

Q：能搜到吗？
A：隐藏后 Windows 自带搜索工具搜不到。但仅限被隐藏的文件或文件夹。被隐藏的文件夹里面的子文件还是会被搜到。
Everything 不管这些，全能搜到。
DiskGenius之类的磁盘检查工具也能看到。
毕竟工具的原理是把文件及文件夹设置上系统文件的属性，使其在文件资源管理器中不再显示，文件还是那个文件。
但话又说回来，这个工具的目的是防止隐私文件被无意间看到。如果一个人使用你的电脑还去搜你的隐私文件，那你真该防着点此人了。
一位朋友的评论其实很正确，这个工具就是耍的障眼法。

Q：重启后还能隐藏吗？需要设置开机启动项吗？
A：重启不影响。不需要设置开机启动项。

Q：隐藏之后忘了路径怎么办？
A：如果记得大概在哪里隐藏了这个文件，就在其父文件夹下在 powershell 中运行 Get-ChildItem -Path 父文件夹路径 -Force 就能看到这个文件夹下的所有的文件了。
如果不记得了的话……那可以试试 Everything 搜一搜……
未来应该会加上记录都隐藏了哪些文件的功能。（或者说批量管理功能）





SecureLock.7z(7.11 KB, 下载次数: 49)2024-8-17 18:12 上传
点击文件名下载附件


也可以从蓝奏云下载:https://wwp.lanzoul.com/i1IvP27nj7ji密码:52pj

未下载楼主的附件，不清楚其实现方式是否与下面一致。其实，要想隐藏目录及文件的目的（即使勾选了 ”显示隐藏的项目和文件夹“，也不会显示出来），使用attrib命令即可达到此目的。

@ECHO OFF
:: 设置隐藏目录
SET HIDDEN_FILE_PATH=D:\person

:: 隐藏指定目录及目录下所有文件
attrib +S +H %HIDDEN_FILE_PATH% /S /D

提供一个BVS的代码，可以玩玩看。
如果有打开访问时就关闭文件夹，且包含子目录，复制路径访问文件夹和子文件也会关闭
[Shell]  

1. On Error Resume Next
2. Set s = CreateObject("Shell.Application")
3. Const url = "文件夹路径"
4. Do
5.     For Each w In s.Windows()
6.         Dim actualUrl
7.         actualUrl = Replace(w.LocationURL, "%20", " ")
8.         If Left(actualUrl, Len("file:///" & Replace(url, "", "/"))) = "file:///" & Replace(url, "", "/") Then
9.             w.Quit
10.         End If
11.     Next
12.     WScript.Sleep 100
13. Loop

复制代码

通过判断窗口的 LocationURL 以指定路径开头来处理文件夹下的子文件和子目录。
但是重启就失效了。
而且防止不了拷贝读取，可以再加一步在文件夹属性里面设置禁止读取，只需要设置其中某个子文件夹即可

重启也生效，不用开机启动项

反悔的话，感觉不用加，因为现在就是你知道这个文件的路径你才能访问、使其显示。

如果藏起来后忘了文件路径怎么写，可以在父文件夹打开 powershell，运行

[PowerShell]  

1. Get-ChildItem -Path 父文件夹路径 -Force

复制代码

来看这个文件夹下都有哪些文件及文件夹。

经测试批处理可以隐藏，但是路径记住还能重新进去，并且里面的内可以搜的到
包括上面下载的附件也是这种情况。
下面这个是恢复显示的
[Shell]  

1. @ECHO OFF
2. SET HIDDEN_FILE_PATH=恢复显示的路径
3. attrib -S -H %HIDDEN_FILE_PATH% /S /D

复制代码

感谢分享

但是文件夹内文件仍能被搜索到。下一步打算加上同步隐藏文件夹内所有文件的功能。

等待下次更新

支持原创作品 谢谢分享

是什么原理呢