如何删除文件

Question

deletefile( );
找文件用findfirst,findnext,findclose.其实直接用filelistbox更方便adwr

Answer 1

DeleteFile
将一个文件从从记录盘上删除，如果文件不存在或无法删除，则返回False 。
函数原型如下：
function DeleteFile(const FileName: string): Boolean;在Unit1.pas文件的uses语句中添加shellApi单元。
添加“删除( D ) . . .”按钮的OnClick事件的处理过程如下：
procedure TForm1.Button2Click(Sender: TObject) ;
var
OpStruc: TSHFileOpStruct;
begin
// 设置O p S t r u c
with OpStruc do
begin
Wnd : = Form1.Handle ;
wFunc: =FO_DELETE ;
pFrom: =PChar( Edit1.Text) ; //Edit1中的文字是要删除的文件名
fFlags : = FOF_ALLOWUNDO ;
end ;
SHFileOperation( OpStruc ) ;
end ;
说明：
• 应该在删除文件的时候给出文件的绝对路径名，否则可能不能恢复。
• 对于多个文件，文件名之间要以# )字符分隔，整个字符串以两个# 0 结束。

Answer 2

用DELETEFILE(WJ);
其中WJ为你要删除文件的完整路径名。

Answer 3

Sorry, 忘了说明，第二种方法是将文件删除到“回收站”。