TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
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