Came across a classic ASP VB site recently in my adventures. There was a feature request to filter out some file extensions from existing code logic, and I discovered quickly most of my .Net methods were unavailable, so I came up with this little snippet and had a great blast from the past. 🙂
function FilterExtensions(fn) FilterExtensions=true a_ext = Array(".db",".db") 'place additional extensions here for each ext in a_ext i = InStrRev(fn,ext) if i>0 then FilterExtensions=false end if next end function
If FilterExtensions returns true then there were no matches (extension of filename successfully passed all filters).