L
LuigiB
Guest
Ottimo , allora ora le strade sono due .
La prima : uno si modifica il percorso della basedati nel file bat in base al percorso del proprio pc e poi per aggiornare esegue il file bat.
la seconda : uno script ch automatizza il download delle estrazioni ma che prevede che il file wget.exe sia copiato nella directory dati del programma.
in tutti i casi va ringraziato Silop perche senza il suo sito la cosa non sarebbe possibile ..
La prima : uno si modifica il percorso della basedati nel file bat in base al percorso del proprio pc e poi per aggiornare esegue il file bat.
la seconda : uno script ch automatizza il download delle estrazioni ma che prevede che il file wget.exe sia copiato nella directory dati del programma.
in tutti i casi va ringraziato Silop perche senza il suo sito la cosa non sarebbe possibile ..
Codice:
Option Explicit
Sub Main
'wget -O c:\temp\basedati.dat --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati.dat
Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup, sUrl,sFileBat,DataIni,b,nTimeoutSec
sDirFileDestLocal = GetDirectoryAppData & "basedati.dat"
sFileBackup = sDirFileDestLocal & ".bak"
sPercorsoWget = GetDirectoryAppData & "wget.exe"
sUrl = "https://www.silop.it/archivi/lottoItalia/BaseDati.dat"
sCommand = """" & sPercorsoWget & """" & " -O " & sDirFileDestLocal & " --no-check-certificate " & sUrl
nTimeoutSec = 30
If FileEsistente(sPercorsoWget) Then
If FileEsistente (sDirFileDestLocal ) Then
b = RinominaFile (sDirFileDestLocal ,sFileBackup )
Else
b = True
End If
If b Then
sFileBat = GetDirectoryAppData & "Download.bat"
Call ScriviFile(sFileBat,sCommand,True,False)
Call LanciaFile(sFileBat)
DataIni = Now
Do While FileEsistente (sDirFileDestLocal ) = False
If DateDiff ("s",DataIni , Now) > nTimeoutSec Then Exit Do
Loop
If FileEsistente ( sDirFileDestLocal ) Then
Scrivi "Aggiornamento riuscito !!!"
Call EliminaFile (sFileBackup )
Else
Scrivi "Attenzione !!!"
Scrivi "Il file delle estrazioni non è stato scaricato " & GetDirectoryAppData
Call RinominaFile (sFileBackup ,sDirFileDestLocal )
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Non è stato possibile creare il backup delle estrazioni"
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso " & GetDirectoryAppData
End If
End Sub
Ultima modifica di un moderatore: