Classic ASP VB Filter File Name Extensions From String EndsWith
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).
Posted on December 17, 2012, in Programming & Development and tagged 1.1, asp, classic, endswith, filter, instr, string, vb, web. Bookmark the permalink. Leave a comment.
Out of Office Reply 
Leave a comment
Comments 0