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]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

''' <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!