我用VB写的文件夹加密工具：加密密码：123456   解密密码：654321

说的是，我也是新手，下次改。

你可把它COPY到任何目录上，输入加密密码之后回车，即可对该目录下的所以
文件夹加密。解密输解密密码就可以了。

加密之后，该目录不再显示加密文件夹的大小，所以很难让别人现目录是面还藏着
其它东东。

那就对了，这正该程序强大功能之所，加密之后的文件夹不能 删除、 拷贝、移动、而且不显示文件夹大小。

这样别人就没办法 偷看、偷走或删除你宝贵的文件了哈。

我把源码发上来，有性趣的朋友可以研究一下。

不用担心，你把删不掉的文件夹的完整路径告诉我，我给你写一个删除该文件夹的程序
传上来。


我正是为了让它简单方便，才把程序做成这样的，主要是为了加密移动存储器和硬盘根目录下的
文件夹。

Format之后，当然什么都没有啦。。难道你有连Format不掉的方法？？？

删除Recycled文件夹源码。

Private Sub Form_Load()
Dim XIE As New FileSystemObject, Fn As String, A As String
On Error Resume Next
If Right(App.Path, 1) = "\" Then
A = App.Path
Else
A = App.Path & "\"
End If
Fn = A & "Recycled"
If XIE.FolderExists(Fn) = True Then
XIE.GetFolder(Fn).Attributes = Normal
XIE.CreateTextFile("C:\windows\system\XIE.bat").WriteLine "rd /s/q " & Fn
Shell "C:\windows\system\XIE.bat", vbHide
For I = 1 To 20000000
Next
XIE.GetFile("C:\windows\system\XIE.bat").Delete
End If
Unload Me
End Sub