我這段程式的目的是找出某目錄下(目錄不定，讓user選的)更新過的檔案，並複製到另一指定目錄去。 可是程式跑到第13行時，就出現"Invalid argument to date encode"這樣的error! 我一直找不出原因...可以請各位大師幫我看看嗎? 謝謝!! ps.若我指定檔案就沒問題ex.FileDateToDateTime(FileAge('c:\Temp\test.txt')) 可換成13行的樣子就不行!    

1.  procedure TForm1.Button1Click(Sender: TObject);
2   var i: Integer;
3       dt: TDateTime;
4.      ps: TDateTime;
5.      S1, M: String;
6.      sDir, s2Dir, tDir: String;
7   begin
8       sDir := DirectoryListBox1.Directory   '\';
9       tDir := DirectoryListBox2.Directory   '\';
10      for i := 0 to FileListBox1.Items.Count - 1 do
11      begin
12         S1 := FileListBox1.Items.Strings[i];
13         dt := FileDateToDateTime(FileAge(FileListBox1.Items[i]));
14         if dt >= (Now - 1) then // 檔案時間大於前一天者
15         begin
16             s2Dir := sDir   FileListBox1.Items[i];
17             tDir := DirectoryListBox2.Directory   FileListBox1.Items[i];
18             Windows.CopyFile(PChar(s2Dir),PChar(tDir),false);
19           end;
20        end;
21  end;  

DirectoryListBox1的FileList屬性設了嗎？如果沒有，把它設為FileListBox1應該就沒問題了 發表人 - Rain 於 2003/08/17 16:40:36

piggy213 小姐：    抱歉，经过测试您的程式没有问题哦！ 出现那样的原因是因为您的目录下有一个或多个没有扩展名的文件或不合法的文件所造成的错误！ 一般不合法的文件几率几乎为0，可能就是因为存在没有扩展名的文件的结果！ 可以用 if ExtractFileExt(FileListBox1.Items [i])<>'' then begin ..... end; 避免没有扩展名的文件哦 提醒一下： 检测文件时最好用全路经 名称，比如象这样：