Réponse acceptée !
Oué, mais nan!
J'ai trouvé la solution!Bon, c'est pas un peu free style comme truc, mais sa marche!!
En faite, temporary internet files contient tout plein de sous dossiers.
Alors, c'est possible de trouver tous les fichiers en scannant tous les sous dossiers.
Public Sub listeRepertoire( )
dir = Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)
On Error Resume Next
'Ajout du repertoire de recherche
'Condition si recursivite dossier
Dim listdir(), listfiles(), dossier As Object
Dim i As Integer
listdir = IO.Directory.GetDirectories(dir)
If listdir.Length <> 0 Then
For i = 0 To listdir.Length - 1
'Incrementation nombre dossier
nombreD += 1
'Recursivité avec listage des fichiers recursifs listeRepertoire(listdir(i).ToString)
listeFichier(listdir(i))
Next i
End If
End Sub
Public Sub listeFichier( ByVal dir As String )
Dim listFile(), fichier As Object
On Error Resume Next
listFile = IO.Directory.GetFiles(dir)
If listFile.Length <> 0 Then
For Each fichier In listFile
Dim file As New IO.FileInfo(fichier)
'Ajout des items fichiers
ListView1.Items.Add(file.Name )
Next
End Sub
End If
Xavier