[原创]文件夹加密 - VB6论坛

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	买域名，送MP3、MP4
高端软件开发 = 年薪十万不是梦	赛孚耐:软件保护加密专家	身份认证令牌USB KEY	买空间，免费送域名（厦门中资源）

共有 1707 人关注过本帖

标题：[原创]文件夹加密

收藏订阅推荐打印

xiepeng

等级：新手上路
帖子：35
积分：450
注册：2007-5-29

第 11 楼

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

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

2007-6-16 18:23

Joforn

等级：贵宾
威望：20
帖子：1206
积分：12764
注册：2007-1-2

第 12 楼

等你把删除部分代码加进来就加分。

[fly]欢迎光临我的博客[/fly]
休闲好去处:无端网游，无需安装，注册即可玩。

2007-6-17 08:43

ioriliao

来自：广东
等级：贵宾
威望：29
帖子：2122
积分：23963
注册：2006-11-30

第 13 楼

以下是引用xiepeng在2007-6-16 14:34:10的发言：
那就对了，这正该程序强大功能之所

，加密之后的文件夹不能 删除、拷贝、移动、而且不显示文件夹大小。

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

如果format呢?

105本高清PDF电子书 :http://www.cnblogs.com/ioriliao/archive/2008/10/20/1315343.html
VB爱好者1号群:31556786

2007-6-17 08:51

xiepeng

等级：新手上路
帖子：35
积分：450
注册：2007-5-29

第 14 楼

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

2007-6-17 10:34

xiepeng

等级：新手上路
帖子：35
积分：450
注册：2007-5-29

第 15 楼

删除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

2007-6-17 10:50

lamy311