Binaryworld - IsExecFile - Check whether a file is an executable file ... [ VB -> Files & Folder ]

'check whether the specified file is an executable,
' by checking the last 4 characters.
'Example: MsgBox "File is exe: " & IsExecFile("C:\windows\notepad.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