Цель: найти последний созданный файл по времени и дате создания в определённой директории.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
//Borland c++ #include <vcl.h> #pragma hdrstop #include "Unit1.h" // --------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; // --------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } // --------------------------------------------------------------------------- void FileSearch() { TSearchRec sr; String fn; _SYSTEMTIME st; TDateTime dt, ft; fn = ""; dt = 0; try { if (FindFirst("C:\\Users\\admin\\Desktop\\*.*", faAnyFile, sr) == 0) do { if (sr.Attr == faDirectory) continue; FileTimeToSystemTime(&sr.FindData.ftCreationTime, &st); ft = SystemTimeToDateTime(st); if (ft > dt) { dt = ft; fn = sr.Name; } } while (!(FindNext(sr) != 0)); } __finally { FindClose(sr); } if (fn.IsEmpty()) ShowMessage("Нет Файлов"); else ShowMessage(String("Самый новый файл: ") + fn); } void __fastcall TForm1::Button1Click(TObject *Sender) { FileSearch(); } // --------------------------------------------------------------------------- |