Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim sFileBd
Dim sMsg
sMsg = "Questo script elimina gli archivi del 10 e lotto" & vbCrLf
sMsg = sMsg & "sia tradizionale che 5M poi li aggiorna nuovamente" & vbCrLf
If MsgBox( sMsg , vbQuestion + vbYesNo ) = vbYes Then
sFileBd = GetDirectoryAppData & "BaseDati10Elotto.Dat"
Call EliminaFile(sFileBd)
sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
Call EliminaFile(sFileBd)
Call AggiornaArchivio
Call AggiornaArchivioDL
ImpostaArchivio10ELotto(1)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
ImpostaArchivio10ELotto(2)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
End If
End Sub