Per il ripristino dell' archivio corrotto, si può provare ad usare questo script:
Codice:
Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDati.dat" & """" & " --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati.dat"
Call EliminaFile(sFile)
Call ScriviFile(sFile,Riga,False,True)
Call LanciaFile(sFile)
Call EliminaFile(sFile)
End Sub
Se funziona correttamente, cancella l'archivio esistente e ne crea uno nuovo aggiornato a fine Novembre 2025.
Quindi automatizza semplificando tutte le operazioni più complicate. (Quelle di cui ai punti A & B del messaggio precedente)
Per AGGIORNARE si può usare lo script che si appoggia all' archivio presente sul sito di Lottologia.