List of picture names in an excel column

[maddengm33]

I have 15 pictures in a folder named PIX located in my C drive (C:\PIX). All the pictures are .jpg images. I would like a list of all of the pictures in the folder PIX in the A column on an excel spreadsheet. What VBA code would I need to run to accomplish this?

 

[Norie]

Perhaps something like this:

Sub ListPIX()
Dim I As Integer
Dim PIXFile As String
    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\Papers\"
        .Filename = "*.j*g"
        .Execute
        
        For I = 1 To .FoundFiles.Count
        
            PIXFile = Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1)
            
            Range("A" & I) = PIXFile
            
        Next I
    End With
End Sub

Note this uses the function InStrRev to extract only the file name. This is available in later versions of Excel.

 

[maddengm33]

Thanks!