excel vba是否在文件创建日期与周数匹配的目录中列出文件？

Sub ListFilesInDirectory()
    Dim folderPath As String
    Dim fileName As String
    Dim fileDate As Date
    Dim fileWeek As Integer
    Dim targetFolder As String
    
    ' 设置目标文件夹路径
    targetFolder = "C:\目标文件夹路径"
    
    ' 获取当前文件夹路径
    folderPath = ThisWorkbook.Path
    
    ' 遍历当前文件夹中的所有文件
    fileName = Dir(folderPath & "\*.*")
    Do While fileName <> ""
        ' 获取文件的创建日期
        fileDate = FileDateTime(folderPath & "\" & fileName)
        
        ' 获取文件的周数
        fileWeek = WorksheetFunction.WeekNum(fileDate)
        
        ' 判断文件的创建日期与周数是否匹配目标文件夹
        If folderPath & "\" & "Week " & fileWeek = targetFolder Then
            ' 在Excel中列出文件名
            Range("A1").Value = fileName
        End If
        
        ' 继续遍历下一个文件
        fileName = Dir
    Loop
End Sub