Public Function isNET(ByVal filepath As String)
Dim sFile As Byte() = File.ReadAllBytes(filepath)
If sFile(&H3C) = &H80 Then
Return True
Else
Return False
End If
End Function
Copyright © 2024, NextGenUpdate.
All Rights Reserved.