| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付买域名,送MP3、MP4
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY买空间,免费送域名(厦门中资源)
共有 1707 人关注过本帖
标题:[原创]文件夹加密
收藏  订阅  推荐  打印 
xiepeng
Rank: 1
等级:新手上路
帖子:35
积分:450
注册:2007-5-29

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


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


2007-6-16 18:23
Joforn
Rank: 12Rank: 12Rank: 12
等级:贵宾
威望:20
帖子:1206
积分:12764
注册:2007-1-2

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

2007-6-17 08:43
ioriliao
Rank: 12Rank: 12Rank: 12
来自:广东
等级:贵宾
威望:29
帖子:2122
积分:23963
注册:2006-11-30

以下是引用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
Rank: 1
等级:新手上路
帖子:35
积分:450
注册:2007-5-29

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


2007-6-17 10:34
xiepeng
Rank: 1
等级:新手上路
帖子:35
积分:450
注册:2007-5-29

删除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
Rank: 1
等级:新手上路
帖子:12
积分:224
注册:2007-12-24
删除不了我建的文件夹

这是个大问题!!!!!希望LZ改进!!!!我会长期支持你的!!!
2008-1-6 13:57
dawn4640576
Rank: 6Rank: 6
等级:金牌会员
帖子:1076
积分:11562
注册:2007-9-19

原帖由 [bold][underline]xiepeng[/underline][/bold] 于 2007-6-16 15:36 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=868633&ptid=147835][/url]
我把源码发上来,有性趣的朋友可以研究一下。22605
有性趣,无兴趣

我看青山多妩媚料青山看我应如是
2008-1-6 14:03
lzdjr
Rank: 1
等级:新手上路
帖子:4
积分:26
注册:2008-10-4
回复 1# xiepeng 的帖子

原来生活可以更Midea
2008-10-7 07:57
huoxingboy20
Rank: 1
等级:新手上路
帖子:1
积分:88
注册:2008-10-7
加密不了啊

加密不了啊  怎么回事?
2008-10-7 21:20
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.052385 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved