about file ,急救!!!!!100分相送.

我現在要寫一個程式﹐要將一個目錄下的EXCEL文件調到sql數據庫中﹐查詢我們想要的資料。現在我的問題是怎樣知道目錄下的EXCEL文件的個數﹐我要用什么去查找。 thaks.

解决方案 »

  1.   

    用findfirst,findnext查找*.xls文件。
      

  2.   

    用FindFirst函数并使用递归方法。
      

  3.   

    我是剛學DELPHI的,請說明用法,THANKS.
      

  4.   

    FileNum : integer;
    SearchRec: TSearchRec;
     
      FileNum := 0;  if (0 <> FindFirst(dirname + '\*.xls',faAnyFile , SearchRec)) then
        exit;  try
        repeat
            if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
              continue;        FileNum := FileNum + 1;    until FindNext(SearchRec) <> 0;    FindClose(SearchRec);
    临时写的， 没测， 试试。
      

  5.   

    看看findfirst的帮助吧，有一段很详细的程序