Android Code Snippet Test if a file is a Zip File

sonicmayne

Member
Licensed User
Event Name: IsZipFile

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

B4X:
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.
 
Top