我想用TFileListBox了,可是不知道怎么用?是不是用错了,我不需要界面,我想在程序中获取一个文件夹下的所有文件,然后遍历处理这些文件

解决方案 »

  1.   

    var
      Search:TSearchRec;
      iCount:integer;
      FilePath:string;
    begin
      FilePath:='F:\mp3';
      Try
        iCount:=FindFirst(FilePath +'*.*',faAnyFile,Search);
        while iCount =0 do
        begin
          if (Search.name<>'.')and(Search.name<>'..') then
          begin
            if ExtractFileExt(Search.Name)='.mp3' then //查出当前目录下所有*.mp3
              Memo1.Lines.Add(Search.Name);
          end;
          iCount:=FindNext(Search)
        end;
      finally
        FindClose(Search);
      end;
    end;