Android Code Snippet Test if a file is a Zip File

Discussion in 'Code Snippets' started by sonicmayne, Apr 21, 2015.

  1. sonicmayne

    sonicmayne Member Licensed User

    Event Name: IsZipFile

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

    Sub IsZipFile(Path As String, FileName As StringAs 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
    Dim result As Boolean = RAF.ReadInt(0) = 0x04034b50
    Return result
    End Sub
    Depends On: RandomAccessFile

    Tags: Zip File, File Testing, Magic Numbers

    Note: This also works on B4J.
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice