帮忙!帮忙!如何删除一个目录下的所有文件,原来看到过,现在找不到,请各位帮忙!谢谢

转贴主　　题：巨怪一问题：有关删除目录
作　　者：oldhawk
所属论坛：Delphi
问题点数：20
回复次数：1
人气指数：20
发表时间：2001-4-25 15:52:00
 
我用如下代码删除目录，失败，但是当把 dir 中的目录 diary 减掉一个字母该为 diar 就能删除成功，请较这是怎么回事，是不是该方法对文件名长度有限制？
begin
  dir:='c:\my documents\dprj\mygp22\data\diary\test';  FillChar(MyFileStruct,SizeOf(MyFileStruct),0);
  WITH MyFileStruct DO
  BEGIN;
    wFunc := FO_DELETE;
    pFrom := PChar(Dir);
    fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
  END;
  IF ShFileOperation(MyFileStruct)<>0 then
    {Error handling} ;
end；   转移贴子到  Visual C++ Visual Basic Delphi C/C++ C++ Builder ASM 数据库开发 PowerBuilder ActiveX/COM 数据算法 软件工程 图形/游戏/多媒体 安全技术 网络/通讯 技术书籍 文件格式 C# XML/SOAP 数据仓库 VBA 主页制作 图形处理 ASP PHP Perl Java Javascript JSP 嵌入式开发 .NET Framework ADO.NET ASP.NET Web Services Web Forms Windows Forms VB.NET VC.NET Windows 9x/ME Windows NT/2000/XP DOS Office使用 Office开发 Exchange server IIS 程序人生 软件市场 程序员考试 人才热线 建议和意见 灌水乐园 走向海外 程序员杂志 软件使用 资源使用 我看软件 寻找软件 行业软件 软件评测 Linux/Unix 硬件指南 | 删除贴子 | 加到精华区  
回复贴子： 
　Kingron(戒网中……)　回复于2001-4-25 16:06:00 得20分删除回复  
请注意，MyFileStruct,pTo,pFrom应该用#0#0结尾，这个问题问得也比较多了。
改成pFrom:=pchar(Dir+#0)即可。