Зміст
Опис FileDateTime
Повертає дату та час створення файлу або останньої зміни.
Простий приклад FileDateTime
Припустимо, що файл “D: \ test.txt” востаннє змінено 21.10.2019 9:41:30.
| 1 | MsgBox FileDateTime ("D: \ test.txt") |
Це повернеться 21.10.2019 9:41:30.
Синтаксис FileDateTime
У редакторі VBA можна ввести “FileDateTime (”, щоб побачити синтаксис функції FileDateTime:
Функція FileDateTime містить аргумент:
Ім'я шляху: Рядовий вираз, що представляє файл/папку/диск.
Приклади функції Excel VBA FileDateTime
Щоб перерахувати час останньої зміни папки та файлів на диску C, можна скористатися наступним кодом.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringЗатемнити повне ім'я як рядокЗменшити діапазон як діапазонDim i як ціле числоВстановити rng = Діапазон ("A1")fileName = Dir ("C: \", vbDirectory)i = 1ЗробитиfullName = "C: \" & ім'я файлуrng.Offset (i, 0) = ім'я файлуrng.Offset (i, 1) = FileDateTime (повне ім'я)rng.Offset (i, 2) = FileLen (повне ім'я)rng.Offset (i, 3) = GetAttr (fullName)ім'я файлу = РежЯкщо fileName = "" Тоді вийдітьi = i + 1ПетляEnd Sub |
Результат буде схожим із наступним.
