IsExecFile – Check whether a file is an executable file

IsExecFile – Check whether a file is an executable file

'check whether the specified file is an executable,'  by checking the last 4 characters.'Example: MsgBox "File is exe: " & IsExecFile("C:windows
otepad.exe")Function IsExecFile(ByVal sFileName As String) As Boolean    Dim sExt As String    On Error Resume Next    ' first of all, check if the file exists    If Not (GetAttr(sFileName) And vbDirectory) = 0 Then Exit Function    ' check the last 4 charatcters    sExt = LCase$(Right$(sFileName, 4))    ' exe extensions: .exe, .bat, .com, .pif    IsExecFile = (sExt = ".exe") Or (sExt = ".com") Or (sExt = ".bat") Or (sExt _        = ".pif")End Function

See also  Redefining Energy Management: Advanced Solutions for Modern Buildings

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist