<div>
 &nbsp; &nbsp;Dim fileitem As File<br />
&nbsp; &nbsp; Dim fso<br />
&nbsp; &nbsp; Set fso = New Scripting.FileSystemObject<wbr /><br />
&nbsp; &nbsp; Set SourceFolder = fso.GetFolder(&quot;c:\temp\&quot;)<br />
<br />
&nbsp; &nbsp; For Each fileitem In SourceFolder.Files<br />
&nbsp; &nbsp; &nbsp; &nbsp; If Right(fileitem.Path, 4) = &quot;.xls&quot; And Right(fileitem.Path, 12) &lt;&gt;&nbsp;&quot;Comments.xlsx&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DateDiff(&quot;d&quot;, fileitem.DateLastModified,<wbr /> Now) &gt;&nbsp;7 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ActiveSheet.Cells(Range(&quot;A<wbr />1&quot;).End(xl<wbr />Down).Row,<wbr /> 1) = fileitem.Path<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; Next
</div>


   Dim fileitem As File
    Dim fso
    Set fso = New Scripting.FileSystemObject
    Set SourceFolder = fso.GetFolder("c:\temp\")

    For Each fileitem In SourceFolder.Files
        If Right(fileitem.Path, 4) = ".xls" And Right(fileitem.Path, 12) <> "Comments.xlsx" Then
               
            If DateDiff("d", fileitem.DateLastModified, Now) > 7 Then
                 ActiveSheet.Cells(Range("A1").End(xlDown).Row, 1) = fileitem.Path
            End If
        End If
       
    Next

<div>
<div class="content wysiwyg-content">
Thinking about trying to make something that will help keep a server clean and up to date. &nbsp;I am looking for some VBA Code that will look through all the folder and files in a directory, and if the last modified date is greater than 7 days ago, I would like to list out the file path in an excel sheet.....<br />
<br />
any thoughts?<br />
<br />
-Brandon
</div>
</div>


Thinking about trying to make something that will help keep a server clean and up to date.  I am looking for some VBA Code that will look through all the folder and files in a directory, and if the last modified date is greater than 7 days ago, I would like to list out the file path in an excel sheet.....

any thoughts?

-Brandon

Code to loop through and check last modified date

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.