关于文件夹操作

Question

怎么在程序里控制某个文件夹的文件按照名称或时间排序？

Answer 1

参考 \Borland\Delphi5\Demos\Virtual Listview

Answer 2

用VCL控件ListView不是很容易就实现了吗！

Answer 3

你可以先使用Dir()函数得到指定目录下的文件，可以使用通配符。你可以把得到的文件名存放在一个数组中进行排序。如果想按时间或大小排序，可以使用FileDateTime、FileLen等函数。 

Answer 4

procedure sortfiles(dir:string;sl:tstringlist);
var
sr:tsearchrec;
i:integer;
begin
  sl.clear;
  i:=findfirst(dir+'\*.*',faanyfile,sr);
  while i=0 do
  begin
    if (sr.attr and fadirectory)<>fadirectory then
      sl.add(sr.name);
    i:=findnext(sr);
  end;
  findclose(sr);
  sl.sort;
end;
//得到按照名称排序的文件名列表，在sl里面。

Answer 5

我是想把磁盘的某个文件夹下的文件排序后，读到FileListBox1中。