Anche quest'ultima versione contiene del codice che reputo ambiguo...
La Sub cancellaDirTempzip contenuta nel modulo ModAggiornaBaseDati e che viene richiamata dopo l'attivazione del pulsante "AggiornaDaWeb" contiene questo snippet:
- Codice: Seleziona tutto
sPath = GetWinTemp
Debug.Print sPath
S = Dir(sPath & "*", vbHidden + vbReadOnly + vbDirectory)
Do While S <> ""
Debug.Print S
If S <> "." And S <> ".." Then
Coll.Add (sPath & S)
End If
S = Dir()
Loop
For Each v In Coll
Debug.Print v
If FileExist(CStr(v)) Then
Call DeleteDir(CStr(v))
End If
Next
(I debug sono stati aggiunti da me)
Il codice censisce i file e le directory presenti all'interno del percorso C:\Users\UTENTE\AppData\Local\Temp\ e successivamente cerca di cancellarli.
I primi file e directory censite, nel mio caso, sono:
- Codice: Seleziona tutto
.session
3D37F02A-E985-432C-BFC9-DA29976C39ED
556791F8-8AD8-4AE1-8127-DF11CF0569DC
918F233A-178E-4297-94BD-56C9EA5D8D50
aria-debug-12576.log
aria-debug-9956.log
BCLTMP
C6CCF92B-BF86-46E5-9937-B435E32A9573
Grafico Forum.7z
JETCC9D.tmp
journal.pone.0194579.g001.ppt
journal.pone.0194579.g002.PNG
F4C8804E-26D1-4407-AE75-6618951AD4B2
Questo comportamento non ha nessuna attinenza con lo scopo del programma,
chiedo ne sia chiarito il significato.
Tra l'altro, il comando
Call DeleteDir(CStr(v)) non fa quello che il nome dice, ma siccome e' fatta tramite una primitiva di sistema (Function SHFileOperation, usata poi all'interno della Sub DeleteDir) non so decodificare che cosa effettivamente esegue.
Insomma, io le macro mi guardo bene dal farle girare in modo automatico...
Ciao