怎么批量删除某个目录下的文件？ ( 积分: 50 )

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #1

我一个目录下有如下文件：
2132.txt ,
fdsafas.txt ,
abcde.txt ,
fdsjk.txt ...
我先想把文件名中没有bc两个字母的文件删除，即只留下abcde.txt文件，
我知道deletefile函数可以删除一个文件，但怎么来批量删除符合某些条件的文件呢？

 

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #2

我一个目录下有如下文件：
2132.txt ,
fdsafas.txt ,
abcde.txt ,
fdsjk.txt ...
我先想把文件名中没有bc两个字母的文件删除，即只留下abcde.txt文件，
我知道deletefile函数可以删除一个文件，但怎么来批量删除符合某些条件的文件呢？

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #3

procedure TForm1.Button1Click(Sender: TObject);
const
FILE_PATH = 'C:/新建文件夹/';
FILE_MASK = '*.txt';
var
sr: TSearchRec;
iFound: Integer;
begin
try
iFound := FindFirst(FILE_PATH + FILE_MASK, 0, sr);
while iFound = 0 do
Begin
If Pos('bc', sr.Name)=0 then
DeleteFile(FILE_PATH + sr.Name);
iFound := FindNext(sr);
end;
finally
FindClose(sr);
end;
end;

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #4

建一个批处理文件del.bat用
winexec('del.bat')试试

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #5

顶一下

 

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #6

xianguo兄，
我按你的方法，但是在If Pos('bc', sr.Name)=0 then
行报错----- incompatible types
怎么来解决，
我是不是要把sr.name转化为string型？谢谢

 

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #7

xianguo兄
非常谢谢你，
我把50分全给你，明天结贴

 

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #8

那个问题已经解决了

 

W

woainin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-01

• #9

多人接受答案了。