У меня есть список, в котором отображаются файлы XLSM из папки Archive
и файлы PDF из папки PDF
в папке основного файла XLSM, Main
.
C:\Main\Archive\
, C:\Main\PDF\
, XLSM, ищущий эти элементы, находится в папке root C:\Main\
Я хотел бы отобразить самые последние измененные файлы в порядке убывания .
Таким образом, если файл был создан сегодня, он будет отображаться сверху, а затем файл, созданный вчера и т. Д.
Код, который у меня есть, является просто стандартным AddItem для ListBox1
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
ListBox1.AddItem MyFile
MyFile = Dir
Loop
Эти файлы также имеют имена, начинающиеся с FSO или PPG, за которыми следует «номер заявки», например 1031, название компании, тип задания и простая дата.
FSO 10333 Co Name Job Type 042220.xlsm
PPG 10332 Co Name Job Type 042120.xlsm
Так имена отображаются в списке. PDF-файлы с тем же именем.
Спасибо за ваше время!