//分解文件夹 SDir:源目录名 DDir:目的目录名 SQZ:生成的子目录(前)后缀名//SExt:文件类型 MNum:每个文件夹的文件数目 B:SQZ为前缀还是后缀名procedure CutDir(SDir,DDir,SQZ,SExt:string;MNum:integer;B:Boolean;handle:THandle);vari,iFileCount,iFileNum,iDirCount,iDirNum:integer;tsr:TStringList;DFileName,SFileName:string;bSearch:Boolean;beginbSearch:=False;ts