지난 주 범위 내의 폴더 가져 오기

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 

날짜를 얻는다면 지난주의 날짜 필터를 사용할 수 있습니다.