[VB6] Cancellare file che si trovano nella cartella della cache di Internet Explorer

[andreaciao_22]

salve a tutti,

avrei la necessità di cancellare dei file excel dalla cartella dei file temporanei di internet explorer, via programma...

Però facendo la seguente procedura:

Option Explicit
Private Sub Elenca()
    Dim FSO As New Scripting.FileSystemObject, Fold As Folder, SFold As Folder
    Set Fold = FSO.GetFolder("C:\Documents and Settings\NomeUtente\Impostazioni locali\Temporary Internet Files\")
    Call CercaFile(Fold)
    For Each SFold In Fold.SubFolders
        Call CercaFile(SFold)
    Next
    Set Fold = Nothing
    Set FSO = Nothing
End Sub

Sub CercaFile(Fold As Folder)
    Dim FFold As File
    For Each FFold In Fold.Files
        MsgBox FFold.Name
    Next
End Sub

non mi elenca tutti i file contenuti in quella cartella e nelle relative sottocartelle, ma mi elenca solo due volte il file desktop.ini e una volta il file index.dat, benche la cartella contenga molti file: js, doc, xls html...

Come posso fare a farmi elencare tutti i file per poi cancellare quelli di excel?????

grazie

[andreaciao_22]

up