Event Name: IsZipFile
Description: Determines whether a file looks like it could be a zip file.
Depends On: RandomAccessFile
Tags: Zip File, File Testing, Magic Numbers
Note: This also works on B4J.
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.