Using,
Code:
Type FILE_PARAMS
   fAttributes As Long
   sFileRoot As String
   sFileNameExt As String
End Type
and

FindFirstFile, FindNextFile,

Can u pass more than one extension to sFileNameExt at once ? If so how. Tried vbnull but didn't work for me. ( i.e *.txt,*.wri )

Or passing it to FindFirstFile.