VBA Return Count of PDF Files and...

exvb_1 · Sep 19th 2019

I am a novice VBA user but I am actively trying to expand my knowledge. I have a project that I am trying to streamline but I am seeking some VBA help. I hope this isn't too complicated a request.

I am seeking a VBA macro that would accomplish the following:

1. Return Count of PDF Files in specified folder paths (file paths are listed in Excel cells D1:D7)
2. Only return count of files with a last modified date of today (regardless of time)
3. Return count to cells E1:E7

Thank you so much!! I appreciate your help in advance!

Gizzmo · Sep 19th 2019

Hi crysp711,

Try this code, modify as required the SourceFolderName ?????? and Range (" ") = Array portion.

Code

Sub ListFilesinFolder()


    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim rRng As Range


    'SourceFolderName = "C:\Users\???????\Desktop\OzGrid\"


    Set FSO = New Scripting.FileSystemObject
    'Set SourceFolder = FSO.GetFolder(SourceFolderName)


    Range("A1:C1") = Array("text file", "path", "Date Last Modified")


    Set rRng = Sheet1.Range("D1:D7")


    For Each rcell In rRng.Cells
   
    If IsEmpty(rcell) Then
   


    Else
   
        Set SourceFolder = FSO.GetFolder(rcell)
   
        i = 2
        For Each FileItem In SourceFolder.Files
       
            If CDate(DateValue(FileItem.DateLastModified)) = DateValue(Now()) And FileItem Like "*.pdf*" Then
           
                Cells(i, 1) = FileItem.Name
                Cells(i, 2) = FileItem
                Cells(i, 3) = FileItem.DateLastModified
               
                i = i + 1
     
            Else
   
            End If
       
        Next FileItem
   
    End If


    Next rcell


    Set FSO = Nothing


End Sub

Display More

Note credit for the majority of this code comes from Santosh I have just modified where required to meet modified today and file is pdf.

Gizzmo

**Trebor76** · Sep 19th 2019

What was wrong with my solution here?

If you must cross-post please provide a link to each other site as I have done with the above link.

Gizzmo · Sep 20th 2019

Hi Trebor76,

Quote

What was wrong with my solution here?

If you must cross-post please provide a link to each other site as I have done with the above link.

My apologies, I was not aware the OP was a cross-post and that you had already provided a solution.

Regards,

Gizzmo

VBA Return Count of PDF Files and...

Participate now!

Share

Users Viewing This Thread