Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VB6
Expertise: beginner
Apr 21, 2001

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\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

Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap