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