Use DIR to get a list of files
Sub GetFiles() ' Demonstrates the use of DIR to return a file at a time Dim strPath As String Dim strFile As String Dim strFileSpec as String Dim strFilesFound As String strPath = "C:\My Pictures\" ' or wherever you want to look for files strFileSpec = "*.GIF" ' or whatever type of files you want to list ' get the first file that meets our specification strFile = Dir$(strPath & strFileSpec) ' if we got at least one file, continue: While strFile <> "" strFilesFound = strFilesFound & strPath & strFile & vbCrLf ' get the next file and loop strFile = Dir Wend ' let's see what we've got MsgBox strFilesFound End Sub
Warning: This is acceptable for quick and dirty use on your own system. For production code, it's not 100% reliable. Other applications might call the same underlying Windows API that this uses, resulting in Dir returning files of a different specification than what you originally asked for.
See How do I use VBA code in PowerPoint? to learn how to use this example code
Search terms:files,dir,dir$,list files