我能否做一个程序查找并删除某一后缀的文件（我只有15分了，请谅解！！）(15分)

X

xfl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #1

我想做一个小程序，查找计算机内所有某一后缀的文件并删除它。请问能否实现？
我试过，用findfirst findnext deletefile;
但是，两个查找函数好象只查找给定目录下的文件，而不查找其子目录。且deletefile总返回false不能删除文件。
请大虾指教，感激不禁！！

 

A

airdreamer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #2

怎么查给定目录下(包含子目录)的所有文件,我也不知道.

但deletefile可以删除文件.如:

DeleteFile(FilePath + '/' + FileName);

删除文件,你到底是怎么写的?注意,文件的属性不能是

sys,hidden,readonly之类.

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #3

1.有个控件FindFile可以查找所有以某一扩展名为后缀的文件，你如果要我就发给你
我的Mail是wind2000@21cn.com
2.deletefile('c:/a.txt');这个函数应该没什么问题，我都是这么用的！

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-17

• #4

很多控件包里都有全盘检索的控件，如AHM，LMD等等，
它们都有一个全盘检索文件的控件，下一个来就行了。
不然就自己写，递归操作，不是很难。

 

B

bobby_ym

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-18

• #5

　1． 获取当前目录下的所有下一级子目录。
　　2． 存入字符串列表中（Tstrings）。
　　　　其中，用到了几个API函数。
　　　　FindFirst是找出指定目录下第一个文件或目录。
　　　　FindNext一般和FindFirst配合使用，用来找出下一个文件或目录。
　　　　FindClose用来关闭查询。
　　　　（以上函数Delphi在线帮助中有详尽解释，在此不赘述）；
　　3． 用FileExists函数查找当前目录。
　　4． 寻找是否有满足条件的文件存在。
　　5． 依次使各个子目录成为当前目录。
　　6． 递归调用本函数。
　　7． 释放资源。
　　8． 返回查询结果。

 

X

xfl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-19

• #6

多人接受答案了。