{handshake sound}

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).

Ronnie Diaz Avatar

Published by

Ronnie Diaz
Ronnie Diaz is a software engineer and tech consultant with over a decade of experience building software and systems. Ronnie started his career in ecommerce, service industries and remote education. He transitioned from traditional desktop client-server applications through early cloud development. Software included human resource management and service technician workflows, online retail e-commerce and electronic ordering and fulfillment, IVR customer relational systems, and video streaming remote learning SCORM web applications. Hands on server experience and software performance optimization led to creation of a small business focused on collocated web hosting and data center services. This led to specialized expertise in large file storage and video streaming and opened the door at Amazon Prime Video. Ronnie now builds and leads teams to build software and systems which stream live sports and events for millions of viewers around the world.
Categories:
Tags: , , , , , , , ,

Leave a comment