Feedback

VB - Prüfen ob Datei eine EXE Datei ist

Veröffentlicht von am 13.05.2007
(3 Bewertungen)
Diese Funktion prüft ob eine Datei eine EXE Datei ist bzw eine PE (Portable Executable) Datei.

Die Idee kommt von Jan Welker das ist hier die optimierte Version.
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

''' <summary>
''' Diese Funktion prüft ob eine Datei eine EXE Datei ist bzw eine PE (Portable Executable) Datei.
''' </summary>
''' <param name="FileName">Die Datei die überprüft werden soll</param>
Public Function IsExeFile(ByVal FileName As String) As Boolean
    Try
        Dim FS As New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim Data(4) As Byte
        FS.Seek(128, SeekOrigin.Begin)
        FS.Read(Data, 0, 5)
        FS.Close()

        If (Data(0) = 80 And Data(1) = 69 And Data(2) = 0 And Data(3) = 0 And Data(4) = 76) Then
            Return True
        End If
    Catch ex As Exception
        Return False
    End Try
End Function
Abgelegt unter EXE, Executable, PE, Datei.

1 Kommentare zum Snippet

Volker Steitz schrieb am 13.05.2007:
Funzt hervorragend!!!!
 

Logge dich ein, um hier zu kommentieren!