如何对一个文件夹进行遍历文件操作，怎么调用FILESYSTEMOBJECT对象

Question

能详细的说明一下，谢谢，我可以再给50分，急

Answer 1

if FindFirst(文件夹, FileAttrs, sr) = 0 then    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
其余的看帮助