文件编辑（生成，删除）

生成文件
var  tText: TextFile;                         //定义文本（类型）
begin
     AssignFile(tText,'xiao.asp');            //生成xiao.asp
     Rewrite(tText);                          //调用
     Writeln(tText,'内容');
end;

删除
begin
if  FileExists('xiao.asp') then               //如果文件xiao.asp存在 那么
    DeleteFile('xiao.asp');                   //删除文件
end;

生成目录
begin
CreateDirectory('abc',nil);                   //生成目录abc
end;

删除空目录
begin
removedir('abc');                             //删除空目录abc
end;

删除目录
-------定义函数DeleteDir---------
procedure   DeleteDir(sDirectory:   String); 
  //删除目录和目录下得所有文件和文件夹 
  var 
      sr:   TSearchRec; 
      sPath,sFile:   String; 
  begin 
      //检查目录名后面是否有   '\' 
      if   Copy(sDirectory,Length(sDirectory),1)   <>   '\'   then 
          sPath   :=   sDirectory   +   '\' 
      else 
          sPath   :=   sDirectory; 
      if   FindFirst(sPath+'*.*',faAnyFile,   sr)   =   0   then 
      begin 
          repeat 
              sFile:=Trim(sr.Name); 
              if   sFile='.'   then   Continue; 
              if   sFile='..'   then   Continue; 
  
              sFile:=sPath+sr.Name; 
              if   (sr.Attr   and   faDirectory)<>0   then 
                  DeleteDir(sFile) 
              else   if   (sr.Attr   and   faAnyFile)   =   sr.Attr   then 
                  DeleteFile(sFile);                                                 //删除文件 
          until   FindNext(sr)   <>   0; 
          FindClose(sr); 
      end; 
      RemoveDir(sPath);  
  end;
-------定义函数DeleteDir---------
begin
DeleteDir('abc') ;                             //删除目录abc
end;