实在是没有想到删除.SVN文件夹是件这么痛苦的事情，最近在整理公司历史资料文件，粗略统计一下600G左右，本想一次提交到服务器上省事，没想到啊没想到，传输中途程序崩掉了，本地文件夹剩下一大堆.svn文件夹。服务器上鉴于原子性什么也没有传上去，还消耗了一大堆空间，打算重新做！准备用系统的查找删除，Win7那个搜索太操蛋了，不能指定类型，时间段，而且整个过程慢——搜索慢、选择慢、执行命令前整理慢。忍无可忍，找相关能指定文件夹删除的工具基本没有，写代码了（未作测试）。

国庆下班了，节后在试  

 delAllSVN(path: string);

  SearchRec: TSearchRec;
  found: integer;
  vFileName: string;

  found := FindFirst(path + '*.*', faAnyFile, SearchRec);
  while found = 0 do
  

    vFileName := LowerCase(SearchRec.name);
    if (vFileName <> '.') and (vFileName <> '..') and
      ((SearchRec.attr and faDirectory) <> 0) then
    

      if vFileName <> '.svn' 

        SearchFile(IncludeTrailingPathDelimiter(SearchRec.name))
      else
        delDirectory(vFileName);
    

    else
    

      // do Other things.....
    

;
    found := FindNext(SearchRec);
  

;
  FindClose(SearchRec);

;