在上周拉入一系列文件夹

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

如果你得到了日期，也许你可以对上周的日期进行过滤。