Android Code Snippet Test if a file is a Zip File

Event Name: IsZipFile

Description: Determines whether a file looks like it could be a zip file.

Sub IsZipFile(Path As String, FileName As String) As Boolean
    If Not(File.Exists(Path,FileName)) OR File.IsDirectory(Path,FileName) Then Return False
    If File.Size(Path,FileName) < 4 Then Return False
    Dim RAF As RandomAccessFile
    RAF.Initialize2(Path,FileName,True,True)
    Dim result As Boolean = RAF.ReadInt(0) = 0x04034b50
    RAF.Close
    Return result
End Sub

Depends On: RandomAccessFile

Tags: Zip File, File Testing, Magic Numbers

Note: This also works on B4J.