T
topboy
Unregistered / Unconfirmed
GUEST, unregistred user!
要最简短代码！谢谢！
不管目录是否存在！
比如删除c:/temp/*.txt
如果存在对应目录和文件，则删除
如果不存在，也不报错！！！
不管目录是否存在！
比如删除c:/temp/*.txt
如果存在对应目录和文件，则删除
如果不存在，也不报错！！！
L
li_zhifu
Unregistered / Unconfirmed
GUEST, unregistred user!
最简短的代码是这样的
if WinExec('command.com /c del c:/temp/*.txt',sw_hide)<32 then //在Win9X下
WinExec('cmd.exe /c del c:/temp/*.txt',sw_hide);//在Win2K或WinXp下
if WinExec('command.com /c del c:/temp/*.txt',sw_hide)<32 then //在Win9X下
WinExec('cmd.exe /c del c:/temp/*.txt',sw_hide);//在Win2K或WinXp下
E
emonster
Unregistered / Unconfirmed
GUEST, unregistred user!
没错！恐怕这是最简单的方法了，不过如果即要在9X下又要在2000下用得加操作系统检测
苯办法是deletefile()循环。
苯办法是deletefile()循环。
张
张无忌
Unregistered / Unconfirmed
GUEST, unregistred user!
用递归算法，
G
GOHKI
Unregistered / Unconfirmed
GUEST, unregistred user!
用FindFirst,FindNext,FindClose搜索该目录下的*.txt文件
对每个搜索结果使用DeleteFile
var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := faAnyFile;
if FindFirst('c:/temp', FileAttrs, sr) = 0 then
begin
repeat
DeleteFile(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
对每个搜索结果使用DeleteFile
var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := faAnyFile;
if FindFirst('c:/temp', FileAttrs, sr) = 0 then
begin
repeat
DeleteFile(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
孔
孔明.net
Unregistered / Unconfirmed
GUEST, unregistred user!
哈哈，学得一招。不过这样会弹出一个窗口，不爽 。
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
GOHKI的可以。
L
li_zhifu
Unregistered / Unconfirmed
GUEST, unregistred user!
to emonster:
不用加系统检测了，注意我给出的完整语句是
if WinExec('command.com /c del c:/temp/*.txt',sw_hide)<31 then
WinExec('cmd.exe /c del c:/temp/*.txt',sw_hide);
to 孔明.net:
不会弹出窗口，因为我用了SW_HIDE参数
不用加系统检测了，注意我给出的完整语句是
if WinExec('command.com /c del c:/temp/*.txt',sw_hide)<31 then
WinExec('cmd.exe /c del c:/temp/*.txt',sw_hide);
to 孔明.net:
不会弹出窗口，因为我用了SW_HIDE参数
B
bianlx
Unregistered / Unconfirmed
GUEST, unregistred user!
把shellapi加到interface下；
procedure TForm1.deleteClick(Sender: TObject);
//把d:/sybase目录下所有文件发送到回收站
var
sourcefile:STRING;
lpfileop:TSHFILEOPSTRUCT;
begin
sourcefile:= 'd:/sybase/*.*'+#0#0;
fillchar(lpfileop,sizeof(lpfileop),0);
with lpfileop do
begin
wnd:=form1.handle;
wFunc:=FO_DELETE;
pFrom:=pchar(sourcefile);
fflags:= FOF_ALLOWUNDO;
end;
if SHFileoperation(lpfileop)<>NOERROR then
if lpfileop. FAnyOperationsAborted then
showmessage('删除文件被终止')
else
showmessage('删除文件出错');
end;
procedure TForm1.deleteClick(Sender: TObject);
//把d:/sybase目录下所有文件发送到回收站
var
sourcefile:STRING;
lpfileop:TSHFILEOPSTRUCT;
begin
sourcefile:= 'd:/sybase/*.*'+#0#0;
fillchar(lpfileop,sizeof(lpfileop),0);
with lpfileop do
begin
wnd:=form1.handle;
wFunc:=FO_DELETE;
pFrom:=pchar(sourcefile);
fflags:= FOF_ALLOWUNDO;
end;
if SHFileoperation(lpfileop)<>NOERROR then
if lpfileop. FAnyOperationsAborted then
showmessage('删除文件被终止')
else
showmessage('删除文件出错');
end;
E
emonster
Unregistered / Unconfirmed
GUEST, unregistred user!
li_zhifu ,高！！！
S
shibaoping
Unregistered / Unconfirmed
GUEST, unregistred user!
牛人[
]
]
P
peng_qs
Unregistered / Unconfirmed
GUEST, unregistred user!
用WinExec, ShellExecute, SHFILEOperation三种方法都可以做到.
T
topboy
Unregistered / Unconfirmed
GUEST, unregistred user!
接受 ！谢谢！