我的這一段程式目的是當按下button時,會篩選出有更新過的檔案,並複製到我指定的地方去! 可是程式跑到第13行時就出現error!! 錯誤訊息是"Invalid argument to date encode"! 請各位大師幫我看一下是哪邊出錯了! 小女子一直找不出來...... 感謝各位了!! 1.procedure TForm1.Button1Click(Sender: TObject); 2.var i, T: 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.Strings[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;

有沒有use Systemㄋ??

//這一行 dt := FileDateToDateTime(FileAge(FileListBox1.Items.Strings[i])); //改成 dt := FileDateToDateTime(FileAge(tDir FileListBox1.Items.Strings[i])); //這一行 tDir := DirectoryListBox2.Directory FileListBox1.Items[i]; //改成 tDir := DirectoryListBox2.Directory '\' FileListBox1.Items[i]; //我試過,這樣就可以了

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