① 如何把windows文件夹加密
首先打开记事本，当然如果你的电脑里装有类似notepad++的文本编辑软件的也可以，但是不能用word。用这类软件好处是代码高亮，看上去舒服，减少错误率。
输入如下代码：
cls
@ECHO OFF
title Folder Private
if EXIST "Locker" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Locker"
attrib +h +s "Locker"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== 密码 goto FAIL
attrib -h -s "Locker"
ren "Locker" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End
保存为.bat文件
双击运行，会自动生成一个Private的文件夹。
现在可以讲你要加密的文件放进这个隐私文件夹了。移动后，在双击.bat文件。
此时，输入Y ，确定锁定文件夹。
回车后，程序自动关闭，再看文件夹是不是已经消失了？你可以测试，即使在可视隐藏文件的状态下依旧不能找到被锁定的文件夹。隐蔽性极高。只剩下.bat文件了。
当你要进入你的加密文件夹是，只要在双击打开.bat文件。此时要求你输入密码，你只需输入在记事本中设置的密码即可。
8
回车后，你就会发现，被加密的文件夹有出现了。
② 怎样给文件夹加密
1、在想要加密的位置创建一个新的文件夹，比如在D磁盘下面创建一个123文件夹(名称不重要)。
2、下载加密文件(批处理文件)并将其复制到文件夹123。
3、在解压柜后右键单击文件下载。bat，选择“编辑”(不打开)，找到“修改你的密码”这一行，删除单词，设置自己的密码，123456，例如，一行代码将会成为if NOT pass % % = = 123456 goto不保存文件。
4、双击储物柜。Bat，然后在123将显示文件夹下的Privatede文件夹，文件夹是一个加密文件夹，你可以把你想要隐藏的文件放在这里。
再次双击储物柜。Bat并询问是否确定要锁定该文件夹并输入Y以按enter。然后，私有文件夹消失。如果你想打开这个文件夹，双击储物柜。Bat，输入您刚刚设置的密码(123456)来显示文件夹。
③ windows7文件夹怎么加密
第一步，找一个不容易引起注意的文件夹，所以不要选什么游戏电影之类的文件夹，并且这个文件夹不会被轻易删除，但不要使用系统分区目录，因为在Windows 7会因为权限等问题导致加密失败。x0dx0ax0dx0a第二步，在选定的文件夹下新建一个TXT文本文档（名称无所谓），然后打开这个文档，将以下内容粘贴进去：x0dx0ax0dx0aclsx0dx0a@ECHO OFFx0dx0atitle Folder 电脑之家x0dx0aif EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCKx0dx0aif NOT EXIST 电脑之家 goto MDLOCKERx0dx0a:CONFIRMx0dx0aecho Are you sure you want to lock the folder(Y/N)x0dx0aset/p "cho=>"x0dx0aif %cho%==Y goto LOCKx0dx0aif %cho%==y goto LOCKx0dx0aif %cho%==n goto ENDx0dx0aif %cho%==N goto ENDx0dx0aecho Invalid choice.x0dx0agoto CONFIRMx0dx0a:LOCKx0dx0aren 电脑之家 "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"x0dx0aattrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"x0dx0aecho Folder lockedx0dx0agoto Endx0dx0a:UNLOCKx0dx0aecho Enter password to unlock folderx0dx0aset/p "pass=>"x0dx0aif NOT %pass%== 这里是密码 goto FAILx0dx0aattrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"x0dx0aren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" 电脑之家x0dx0aecho Folder Unlocked successfullyx0dx0agoto Endx0dx0a:FAILx0dx0aecho Invalid passwordx0dx0agoto endx0dx0a:MDLOCKERx0dx0amd 电脑之家x0dx0aecho 电脑之家 created successfullyx0dx0agoto Endx0dx0a:End x0dx0ax0dx0a说明：代码中“if NOT %pass%== 这里是密码 goto FAIL”一行里的“这里是密码”需要替换成你自己的密码组合，注意保留和等号之间的空格。x0dx0ax0dx0a第三步，将这个文本保存，然后改后缀名为.bat格式，完成后双击它运行一次，此时该文件所在位置会新增一个名为“电脑之家”的文件夹。代码中的“电脑之家”也可以替换成你喜欢的文件夹名称，一共有6处，注意不要遗漏。x0dx0ax0dx0a补充说明：为了使这串代码的适用面最大化，请尽量使用英文字母或数字，所以上述代码中一些提示性文字保留了英文，文件夹改用中文是为了便于说明。x0dx0ax0dx0a第四步，当文件夹生成后，再次双击这个bat文件就会看到如下提示：询问你是否要加密这个文件夹（指“电脑之家”文件夹）。x0dx0ax0dx0a按下Y键回车加密，N键不加密（Y和N不分大小写），选择加密后，文件夹就会消失。此时，即使将系统文件夹设置改为“显示隐藏的文件、文件夹和驱动器”也看不到这个文件夹，尝试在地址栏直接输入文件夹名称也无法访问。x0dx0ax0dx0a第五步，当你需要访问这个文件夹的时候就需要先解密，仍然双击bat文件，则会看到以下命令窗口提示：要求你输入解锁密码。x0dx0ax0dx0a输入密码后回车，接着你就会看到原来的文件又出现了，然后你该干嘛就干嘛吧。x0dx0ax0dx0a这个bat文件我们可以拷贝到其他任意文件夹下使用，所以我们完全可以在加密后把它放到其他地方保存，需要解密了在复制过来。之所以建议这样做，一方面是因为这个文件里直接包含了密码，另一方面则是在文件夹下存在这么一个bat文件反而会引起一些人的好奇心，移走之后就不容易被人发现这里藏有秘密了。x0dx0ax0dx0a其实，以前学过dos命令和批处理文件的朋友，一看上面那段代码就明白怎么回事了，其加密手段实际上并不复杂，首先将加密文件夹改名成特殊名称：Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}，然后将其属性改为隐藏+系统，加入判断语句则是仅须一个批处理文件即可完成创建加密和解密工作。x0dx0ax0dx0a当然，这个方法也有不足之处，虽然在Windows资源管理器下看不到加密后的文件夹，但是使用Winrar等其他带有浏览功能的第三方工具还是可以看到，并且可以正常访问里面的文件。所以小编在第一步里就说到，选择一个不太显眼的文件夹才能将其功效最大化发挥。x0dx0a这是你自己不利用任何软件完成的加密，简单有效。加密之后你会有种成就感与满足感，这是任何软件加密没法带给你的！
④ 怎么用VB给文件夹加密
1、由于采用二进制读取文件的方式，因此加密时一般可以不考虑文件类型。
2、这里只进行一次异或运算，如有需要可以进行多次异或运算。
3、此加密算法速度快，当然加密强度也低 ；
参考代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'-----------------------------------------------------------------------
'函数说明： 使用异或运算加密文件（可加密大部分文件）
'参数说明： key - 密钥
' fileName - 普通文件名，
' encryptFileName - 加密后的文件名
'返回值： true - 成功，false - 失败
'-----------------------------------------------------------------------
Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean
On Error GoTo errHandler
Dim inputFileNo As Integer
Dim fileBytes() As Byte
Dim length As Long
XOR_Encrypt = False
'打开文件并保存在二进制数组中
inputFileNo = FreeFile
Open fileName For Binary As #inputFileNo
length = LOF(inputFileNo)
If length = 0 Then
MsgBox "退出加密：文件内容为空！", vbInformation, "提示"
Exit Function
End If
ReDim fileBytes(length - 1) As Byte
Get inputFileNo, , fileBytes()
Close #inputFileNo
'将该二进制数组进行异或加密
Dim i As Long
For i = LBound(fileBytes) To UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor key
Next
'将异或加密后的二进制数组保存在新的文件中
Dim outputFileNo As Integer
outputFileNo = FreeFile
Open encryptFileName For Binary As #outputFileNo
Put outputFileNo, , fileBytes
Close #outputFileNo
XOR_Encrypt = True
errHandler:
If Err.Number Then
MsgBox "加密过程中出错：" & Err.Description, vbCritical, "错误"
XOR_Encrypt = False
Resume Next
End If
End Function