先週の範囲内のフォルダを引き出す

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 

あなたが日付を取得する場合、あなたは先週の日付のフィルタを行うことができかもしれません。