Set strP to the path that you want to produce the file list from.
This code supprots pattern matching Ie: certain filetypes only like *.exe.
This doesn`t support recursion.
Note form moderator to the newbies:
Note that the functions below followed by $ also can be called without the $.
$ defines a string return in VB
End Note
sub GetFileList
strP = "C:\"
If Right$(strP, 1) <> "\" Then strP = strP + "\"
' strA=Dir$(strP+"\*.exe", vbDirectory) ' *.exe files only (No Folders)
' add vbDirectory to include folder names
strA = Dir$(strP, vbDirectory) ' ' get first file
While strA > ""
If strA <> "." And strA <> ".." Then
If GetAttr(strP+strA) and vbDirectory then
' a folder
Else
' a file
End If
'MsgBox strP + strA ' strPathname + strFilename
End If
strA = Dir$ ' Get Next File
Wend
End Sub