[VBS]: Ricerca di file temporanei (.tmp) nel disco fisso

[nanu_90]

A me serve un semplice .vbs che una volta avviato da pc cerchi i file .tmp e li cancelli tutti... solo che non riesco a impostare la ricerca dei file nell'hardisk... io avevo pensato di usare un qualcosa del genere:

Dim Drive,folder, subfolder,elemFolder
Drive="C:"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetDrive (Drive).RootFolder
Set subfolder = folder.Subfolders
For each elemFolder in subfolder

next

e mettere al posto dello spazio vuoto un altra volta lo script e insieme il controllo dell'estensione dei file solo che nn ci riesco

[MItaly]

@LMondi e a tutti quelli che finora si sono confusi: vbs, non VB6
@nanu_90
Resto dell'idea che con un banale file batch faresti molto prima, comunque la strada giusta è quella di una procedura ricorsiva; purtroppo (o per fortuna ) non uso quasi mai VBS, ma ho tentato di adattare del codice VB6 ai tuoi scopi:

Dim mFso, Drive
Drive="c:\"
Set mFso = CreateObject("Scripting.FileSystemObject")
DeleteTemps(mFso.GetFolder(Drive))

Sub DeleteTemps(Fld)
'Ignora qualunque errore (so che è orripilante ma con VBS non si può fare altro :dhò: ) 
On Error Resume Next
Dim tFld, tFil
'tFld = una subdirectory
'Fld = cartella attuale
'tFile = un file contenuto nella cartella attuale
'Imposta la variabile Fld sulla cartella corrente
'Enumera i files contenuti
For Each tFil In Fld.Files
'Confronta il nome del file
If UCase(rExt(tFil.Name)) = "TMP" Then
    tFil.Delete()
End If
Next
'Enumera le cartelle
If Fld.SubFolders.Count > 0 Then
    For Each tFld In Fld.SubFolders
    'Processa la sottocartella
    DeleteTemps tFld
Next
End If
End Sub

Function rExt(filename)
'Funzione che restituisce l'estensione di un file
rExt = Right(filename, Len(filename) - InStrRev(filename, "."))
End Function

[nanu_90]

ho creato il vbs ma quando sono andato a vedere i file .tmp c'erano ancora... ho provato a sostituire l'istruzione "tFil.Delete()" con "msgbox tfil" x vedere se esguiva la ricerca ed in effetti la fà solo che non li cancella :master:
anche senza le parentesi non cancella i tmp

[MItaly]

Il tuo utente ha i permessi per eliminare i file in questione? Prova ad eliminarli manualmente.

[LMondi]

Scusate ma devo precisare.
nanu_90 ha chiesto

...volta avviato cerchi su tutto l'hardisk tutti i file con l'estensione .tmp ...

quindi: cerchi e non cancelli.
A parte il fatto che nelle prove per la scrittura del codice è rischioso cancellare i files (da qui la necessità d'inserire la ListBox per evidenziare i predetti files), ma se l'intento ultimo era quello di eliminare i files tmp, basta togliere la ListBox ed inserire .Delete .

[MItaly]

Originariamente inviato da LMondi
Scusate ma devo precisare.
nanu_90 ha chiesto quindi: cerchi e non cancelli.

Boh... io avevo letto "cancelli".

A parte il fatto che nelle prove per la scrittura del codice è rischioso cancellare i files

Difatti nella versione dello script utilizzata sulla mia macchina ho sostituito tFile.Delete() a MsgBox(tFile.Name)...

(da qui la necessità d'inserire la ListBox per evidenziare i predetti files)

In VBS "puro" non ci sono ListBox.

ma se l'intento ultimo era quello di eliminare i files tmp, basta togliere la ListBox ed inserire .Delete

Il tuo era comunque codice VB6, con variabili a tipizzazione più o meno stretta, caratteristica che VBS non supporta.

[LMondi]

Fermo il resto, è vero il codice è VB6 ma ciò dipende dal fatto che inizialmente c'è stato un pasticcio nelle versioni.

[MItaly]

Già, all'inizio c'è stato un tale casino che non si capiva più niente...

[nanu_90]

chiedo scusa per l'inizio impiastricciato( ) cerco quindi di riformulare la mia domanda iniziale: ho bisogno di un file con estensione .vbs che una volta avviato cerchi ed elimini tutti i file tmp presenti sul pc... grazie di tt cmq

[MItaly]

Te l'ho già scritto! Prova a verificare dopo tFile.Delete() se si è verificato un errore controllando l'oggetto Err.