TPE

[e-mail]

---

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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

---