随笔:13 文章:31 评论:114 引用:0
有心就有翼 有梦就会飞
------------------By MC
发新文章
联系
聚合
管理
Delphi里删除目录的函数
其实网上已经有很多的例子了,不过对于和我一样的初学者来说难免会遇到问题,我试过win32Api函数,也试过用removeDirectory,但都删不掉指定目录,分析了一下,很显然,是这些函数只是单纯的删除空文件夹,非空文件夹删不了的。也不知是不是我用的不对,总之用了下面这个函数挺灵的,帖出来大家分享下。
1
function TMainForm
.
DeleteDirectory(NowPath
:
string)
:
Boolean;
//
删除整个目录
2
var
3
search
:
TSearchRec;
4
ret
:
integer;
5
key
:
string;
6
begin
7
if
NowPath[
Length
(NowPath)]
<>
'
\
'
then
8
NowPath
:=
NowPath
+
'
\
'
;
9
key
:=
Nowpath
+
'
*.*
'
;
10
ret
:=
findFirst(key
,
faanyfile
,
search);
11
while
ret
=
0
do
begin
12
if
((search
.
Attr and fadirectory)
=
faDirectory)
13
then begin
14
if
(Search
.
Name
<>
'
.
'
) and (Search
.
name
<>
'
..
'
) then
15
DeleteDirectory(NowPath
+
Search
.
name);
16
end
else
begin
17
if
((search
.
attr and fadirectory)
<>
fadirectory) then begin
18
deletefile(NowPath
+
search
.
name);
19
end;
20
end;
21
ret
:=
FindNext(search);
22
end;
23
findClose(search);
24
removedir(NowPath);
25
result
:=
True;
26
end;
27
发表于 2006-01-05 10:50
有心就有翼 有梦就会飞
阅读(1294)
评论(0)
编辑
收藏
所属分类:
Delphi,C++
新用户注册
刷新评论列表
只有注册用户
登录
后才能发表评论。
网站导航:
博客园
IT新闻
知识库
C++博客
博问
相关文章:
Delphi里删除目录的函数
Delphi里随机函数的应用
Delphi与FLASH通过SOCKET通信
Delphi获取完整路径
成为编程高手的八大奥秘
CALENDER
<
2024年11月
>
日
一
二
三
四
五
六
27
28
29
30
31
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
1
2
3
4
5
6
7
公告
夫君子之行,静以修身,俭以养德。非淡泊无以明志,非宁静无以致远。夫学须静也,才须学也,非学无以广才,非志无以成学。淫慢则不能励精,险躁则不能治性。年与时驰,意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
<% Response.Buffer = true; Response.ExpiresAbsolute = DateTime.Now - new TimeSpan(1, 0, 0); Response.Expires = 0; Response.CacheControl = "no-cache"; %>
My Music Playlist V1.0
常用链接
我的随笔
我的评论
我的参与
最新评论
留言簿
(2)
给我留言
查看公开留言
查看私人留言
文章分类
(35)
.NET(1)
(rss)
Delphi,C++(5)
(rss)
Downloads(3)
(rss)
JAVA(5)
(rss)
Linux&Unix(1)
(rss)
PPC(2)
(rss)
SQL&Sqlserver
(rss)
多媒体技术(2)
(rss)
曼联&足球(10)
(rss)
电影(1)
(rss)
网页&ASP(VB)(5)
(rss)
Favorites
MC相册
JAVA开源大全
Transact-SQL 参考
一个很好的JAVA社区
中国Linux公社
全景正片
宁波时代电影大世界
维基百科
韩语教室
Friends
Betty平
Heather
Java Bo&Yang
Jell
Jonlee
Seven琪琪的幸福天堂
Smallfox的传说
TiGERTiAN
Vivagaojie
不叮布丁
俏皮儿
先锋博客
奔走不息冰红茶
小美
白狐雪生Vera
紫梦的左岸冬眠
阿齐妹妹的窝
搜索
最新评论
1. re: 支持HTML类BLOG里插入音乐的方法
那该如何插入音乐呢?还是有点不明白
--长春甲醛
2. re: Macromedia Studio 8 序列号生成器
非常好
--richardwei
3. re: Macromedia Studio 8 序列号生成器
haO
--刘辉
4. re: Macromedia Studio 8 序列号生成器[未登录]
在哪里
--点点滴滴
5. re: Macromedia Studio 8 序列号生成器
万岁
--得法
Powered By:
博客园
模板提供
:
沪江博客