В течение последней недели вытащите диапазон папок

Question

Следующий код охватывает все папки в определенном пути к папке.

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("LOCATION") 

With Worksheets("Sheet1") 

i = 1 

For Each objSubFolder In objFolder.subfolders 
Cells(i + 1, 4) = objSubFolder.Name 
i = i + 1 

Next objSubFolder 

Я пытаюсь изменить этот скрипт только тянуть в папках, которые были заселены в этом направлении в течение последней недели, но я не уверен, как этого добиться. Спасибо заранее.

Answer 1

Чтобы создать дату, вы можете использовать нижеследующую строку в своем коде. Но я не уверен, как получить данные за прошлую неделю в одиночку.

Cells(i + 1, 5) = objSubFolder.DateCreated 

Если вы установили даты, возможно, вы можете сделать фильтр для даты на прошлой неделе.