Amedeo1972;n2036307 ha scritto:Ciao Moro_80 se puoi per favore potresti passarmi il plugin che usi per fare l'aggiornamento vorrei provare a cambiarlo nel programma per vedere se funziona con il tuo , grazie , ciao.
Mike58;n2036312 ha scritto:Purtroppo, avendo cambiato Pc con w10 e reinstallato spaziometria e plugin 10elotto 5min di Moro, anche a me non funziona l'aggiornamento e non mi funziona neanche il tronca archivio.
Non saprei se dipende dal sistema operativo, ma con w7 lo stesso funzionava.
Ciao
arcor;n2036332 ha scritto:Buongiorno a me ha sempre funzionato bene su Windows 10 64 bit che ho da più di un anno.
Mike58;n2036364 ha scritto:
run time error 5
invalid procedure call or argument
purtroppo le immagini in questo forum sono complicate da inserire.
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
Amedeo1972;n2036490 ha scritto:Ciao MOro o lanciato lo script mi esce come da foto
Amedeo1972;n2036516 ha scritto:Ciao Moro dopo aver lanciato il tuo script ora aggiorna funziona tutto ok grazie di tutto.
Mike58;n2036543 ha scritto:Bravissimo Moro80 (Carmine) evidentemente con gli archivi troppo indietro l'aggiornamento dava problemi.
Aggiornato con il tuo script, ora tutto è tornato alla normalità.
Complimenti per l'efficace soluzione.
Grazie.
Ciao