① 如何把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