If File.Exists(File.DirAssets, "bbs_version.txt") Then
If File.Exists(File.DirInternal, "bbs_version.txt") Then
Dim Asset_Version As String = File.ReadString(File.DirAssets, "bbs_version.txt")
Dim APK_Version As String = File.ReadString(File.DirInternal, "bbs_version.txt")
Asset_Version = Asset_Version.Replace(CRLF, "")
Asset_Version.Trim
APK_Version = APK_Version.Replace(CRLF, "")
APK_Version.Trim
Log($"cConsent::ExtractHelp - Versions[${Asset_Version}] APK[${APK_Version}]"$)
If Asset_Version.CompareTo(APK_Version) <> 0 Then
If File.Exists(File.DirAssets, "helpupdates.zip") Then
File.Copy(File.DirAssets, "helpupdates.zip", File.DirInternal, "helpupdates.zip")
If File.Exists(File.DirInternal, "helpupdates.zip") Then
If Archiver.NumberOfZipEntries(File.DirInternal, "helpupdates.zip") <> 0 Then
Log("cConsent::ExtractHelpUpdates - Files Unzipped:" &Archiver.UnZip(File.DirInternal, "helpupdates.zip", File.DirInternal &"/help", "Consent_UnZip"))
End If
End If
End If
File.Copy(File.DirAssets, "bbs_version.txt", File.DirInternal, "bbs_version.txt")
End If
Else
File.Copy(File.DirAssets, "bbs_version.txt", File.DirInternal, "bbs_version.txt")
End If
Else
File.Copy(File.DirAssets, "bbs_version.txt", File.DirInternal, "bbs_version.txt")
End If