Dim uz As Archiver
File.Copy(File.DirAssets,"AB.zip",File.DirInternal,"AB.zip")
uz.AsyncUnZip(File.DirInternal,"AB.zip",File.DirInternal,"uz")
Wait For uz_UnZipDone(Completed As Boolean, Files As Int)
If Completed=True Then
Dim str_A As String=File.ReadString(File.DirInternal,"D.dat")
MsgboxAsync(str_A.Length,"")
End If