ciao Rubino , si sono cambiate delle cose internamente nella scrittura
dei file.
Ti spiego , la funzione scrivifile che serve per scrivere i file
su disco prima ad ogni chiamata apriva il file , scriveva nel file , chiudeva il file.
Queste operazioni di apertura e chiusura sono dispendiose ed impattano sulle prestazioni di velocita.
Questo fatto non si percepisce se la funzione ScriviFile viene chiamata
una volta ma se viene chiamata all'interno di un ciclo invece si.
Per fare un paragone e come se tu avessi cento palline da mettere in un
barattolo , prima funzionava con Apro barattolo - metto pallina - chiudo barattolo cioè lo stesso funzionamento di lottodesk ma è ovvio
che non va bene .. se devo metterne 100 che lo chiudo a fare il barattolo ?
Bene ho fatto questa premessa perche ci tengo a farti capire
in quanto vedo che negli script sei diventato indipendente ma ti mancano dei concetti di ottimizzazione che comunque se continui cosi
apprenderai di certo.
Come dicevo il funzionamento della procedura ScriviFile è cambiato ,
infatti è stato inserito un nuovo parametro che per default vale True , tale parametro serve per specificare se lasciare aperto il file oppure no.
Al termine dello script i file lasciati aperti vengono comunque chiusi tutti automaticamente pero se come nel tuo caso si deve riaccedere allo stesso file durante lo script e quindi prima che
sia finto è necessario chiudere il file esplicitamente prima di poterlo fare.
Nel tuo problema specifico , guardati la procedura
GetScriviFileEstrazioni , c'è un ciclo all'interno
del quale lanci la funzions ScriviFile
come dicevo potresti passare il valore False al parametro che specifica di lasciarlo aperto ma cosi perderesti il beneficio dell'innovazione sicche al termine del ciclo subito
dopo l'istruzione Next devi usare la nuova funzione che
serve per chiudere i file , devi scrivere cosi :
Codice:
Next
Call CloseFileHandle( sFileoutput)
Nell'help queste cose sono spiegate , c'è anche la funzione
CloseAllFileHandle che invece serve per chiudere
contemporaneamente tutti i file ancora aperti.
Un saluto