在上周内拉入一系列文件夹

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

如果您收到日期，可能会为上周的日期做过滤。