БМВ,
Далее For Each FileItem In SourceFolder.Files и сравнение указанного свойства с переменной даты
Собственно так же как и в решении от ув.DANIKOLA
Единственное, возможно получиться ускорить цикл, предварительно "развернув" массив, т.к. с 99% вероятностью, искомые файлы будут в конце списка, соответственно сократится количество итераций...
Код |
---|
Set FSO = CreateObject("Scripting.FileSystemObject") Set SourceFolder = FSO.GetFolder(FolderPath) |
Далее For Each FileItem In SourceFolder.Files и сравнение указанного свойства с переменной даты
Собственно так же как и в решении от ув.DANIKOLA
Единственное, возможно получиться ускорить цикл, предварительно "развернув" массив, т.к. с 99% вероятностью, искомые файлы будут в конце списка, соответственно сократится количество итераций...