' Returns a boolean indicating whether the file is an executableFunction IsExecutableFile(ByVal filePath As String) As Boolean ' add more extensions if you wish Dim extensions() As String = New String() {".exe", ".bat", ".com", ".pif"} ' return true if the extension of the specified file is contained in the ' array above Return (Array.IndexOf(extensions, New System.IO.FileInfo(filePath) _ .Extension) > -1)End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
