Question

delphi编程 如何删除文件夹下类似文件名称的文件

如：删除F盘所有以“x”为开头的word文件（如：x1.doc,x2.doc），F盘可能有一个或多个这样的文件，也可能没有以x开头文件名称的word文件

Answer 1

非常简单，现成的Dos命令：
procedure DelXDoc(Path: string);
var
src: string;
begin
src := Path;
if src[Length(src)] <> '\' then
src := src + '\';
ShellExecute(0, 'open', 'cmd.exe', PChar('/c del ' + src + 'x*.doc /f /q'), nil, SW_HIDE);
end;

使用的话这样用：
DelXDoc('f:');

追问

PChar('/c del ' + src + 'x*.doc /f /q')里面的'/c del '和q是什么，可以直接用么

追答

当然可以直接用，不然我给你写干什么？
1、/c是和cmd.exe连用的，表示cmd.exe执行完命令后自行终止，不然cmd.exe会一直驻留内存。
2、/q是和del命令连用的，表示静默删除，不然系统会询问你是否确认删除。
3、这类批量删除、移动文件，用Dos命令最简单了。

追问

是这样的，我运行了，语句也全部执行了，但是文件并没有被删除

追答

我的就可以。没有被删除的原因很多：
1、ShellExecute要uses ShellAPI；
2、你的文件不是x*.doc形式；
3、你把程序抄错了；
4、你把文件路径写错了；
...
总之都是废话，你把你的程序写出来，我看看。