Batch suppression temporary internet files

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Option Explicit

Dim IEcontent As String
Dim indexDAT As String
Dim bigBuffer As String
Dim tb_rep() As String * 8
Dim nbfic As Integer

Private Function persoID() As String 'qui suis-je ?
    persoID = String(100, Chr$(0))
    GetUserName persoID, 100
    persoID = Left$(persoID, InStr(persoID, Chr$(0)) - 1)
End Function

Private Sub initMe() 'initialisation des variables d'environnement
    IEcontent = "C:\Documents and Settings\" & persoID() & "\Local Settings\Temporary Internet Files\Content.IE5\"
    indexDAT = "index.dat"
    ReDim tb_rep(0 To 0)
    txtbuff.Text = ""
    nbfic = 0
    creer_rep_rbs
End Sub

Private Function isvalideRep(parm As String) As Boolean 'nom possible de repertoire ? o/n
    Dim a
    a = ""
    On Error Resume Next
    a = Dir(IEcontent & parm & "\", vbDirectory)
    isvalideRep = IIf(a = ".", True, False)
End Function

Private Sub ExtractRepFromBuffer(buff As String)  'scanne le fichier et en ressort chaque repertoire caché et consigne les noms dans un tableau
    Dim i As Integer
    For i = 22 To 350 
        If isvalideRep(Mid(buff, i, 8)) Then
            ReDim Preserve tb_rep(LBound(tb_rep) To UBound(tb_rep) + 1)
            tb_rep(UBound(tb_rep)) = Mid(buff, i, 8)
        End If
    Next i
    
End Sub

Private Sub scanIndex_dat() 'lit le fichier index.dat
    Dim f, buff
    f = FreeFile
    Open IEcontent & indexDAT For Input As #f
        Do While Not EOF(1)
            Line Input #f, buff
            bigBuffer = bigBuffer & buff
        Loop
    Close #f
    ExtractRepFromBuffer (bigBuffer)
End Sub

Private Sub delete_temp() 'scanne chaque repertoire caché et copy les fichiers musique dans un dossier RBS du bureau
    Dim i As Integer
        For i = LBound(tb_rep) + 1 To UBound(tb_rep)
        
            'faire le DELETE ici
			msgbox "vider : " & tb_rep(i)
            
        Next i
End Sub

Private Sub main()
	' NE MARCHE QUE POUR L'UTILISATEUR DE LA SESSION
    Call initMe 'initialisation des variables
	Call scanIndex_dat 'lit le fichier index.dat et en ressort les nom de repertoires caché à scanner
	Call delete_temp 'scanne chaque repertoire caché --> pour action
End Sub ' cdt Mister S