Помогите с поиском файла...

[4@й№iK]

Добрый день, жители VBStreet...
Помогите пожалуйста найти в заданной папке файл, который был создан самым последним...
Спасибо...

[RayShade]

Подключаем к проекту Microsoft Scripting Runtime

После выполнения этого кода f содержит ссылку на самый новый файл.

Код: Выделить всё



dim fso as new scripting.filesystemobject

dim f as file

dim i as file



for each i in fso.getfolder("c:\myfiles").files

if (f is nothing) then set f=i

if i.datecreated>f.datecreated then set f=i

next i





Да, код я не проверял

[GSerg]

Да, и 4@й№iK, анимированные аватары на этом форуме вызывают два последовательных желания: сначала попросить убрать, потом (если не ага) убрать самим...

[4@й№iK]

Ха, спасибо RayShade. Воще нормально получилось...
Кстати, аватар поменял - подёт такой?

[RayShade]

4@й№iK

Аватар нормальный

В подписи бы еще опечатку поправил Не mach а much

[4@й№iK]

Thank you very much...