Dim Writer As TextWriter
Dim Reader As TextReader
If Not (File.IsDirectory (File.DirInternal , "rounds")) Then
Dim MyZip As ABZipUnzip
File.Copy (File.DirAssets, "files.zip", File.DirInternalCache, "files.zip")
MyZip.ABUnzip ( File.DirInternalCache &"/files.zip", File.DirInternal)
End If