Sub DescompactaZip
Dim zipa As ABZipUnzip
If File.Exists(File.DirRootExternal & "/mgmobile/backup",NomeBanco) = True Then
zipa.ABUnzip(File.DirRootExternal & "/mgmobile/backup/" & NomeBanco,File.DirRootExternal & "/mgmobile/backup")
If File.Exists(File.DirRootExternal & "/mgmobile/backup","vemovel.db") = True Then
SQL1.Close
File.Copy(File.DirRootExternal & "/mgmobile/backup","vemovel.db",File.DirInternal,"vemovel.db")
Msgbox("Backup Restaurado com sucesso","OK")
ExitApplication
Else
Msgbox("Arquivo vemovel.db não localizado na pasta backup","Atenção")
End If
Else
Msgbox("Não foi encontrado nenhum zip de backup na unidade externa, verifique","Não realizado")
End If
End Sub