Internet temporary files

Signaler
Messages postés
125
Date d'inscription
mardi 18 février 2003
Statut
Membre
Dernière intervention
19 avril 2016
-
Bonjour,
J'ai besoin de deplacer un ou plusieurs fichier present dans le temporary internet files vers un dossier de mon choix.

Comment faire :
My.Computer.FileSystem.CopyFile et system.io.file.copy sont totalement inoperant.
Je parcour le dossier avec ce code :

Const Cible = &H20 'temporary Internet files
Dim objShell As Object, objFolder As Object, objFolderItem As Object
Dim objItem As Object

objShell = CreateObject("Shell.Application")
objFolder = objShell.NameSpace(Cible)
objFolderItem = objFolder.Self
For Each objItem In objFolder.Items
If objItem.Name Like "*FICHIER.type=pdf.aat*" And objItem.Name Like "*" & FichierAT & "*" Then
My.Computer.FileSystem.CopyFile("C:\Temporary Internet Files" & objItem.Name, DestFichier)
'Debug.Print(objItem.Name)
Exit For
End If
Next objItem
'
objShell = Nothing
objFolder = Nothing
objFolderItem = Nothing


Comment faire :
Merci.