Temporary Internet Files [Résolu]

Signaler
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
salut tous le monde,

est ce que il ya un moyen pour recureper l'emplacement du dossier Temporary Internet Files dans chaque systeme d'exploitation que ca soit xp ,vista ,2000 ,98........... il s'agit surement d'une api mais je ne sais pas la quelle

merci d'avance

4 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Si tu travaille avec vb6 pourquoi avoir posté dans VB.NET et VB 2005 ?
http://www.codyx.org/snippet_obtenir-chemin-acces-pour-dossier-documents_176.aspx
http://msdn2.microsoft.com/en-us/library/ms649274.aspx

Private Const CSIDL_INTERNET_CACHE As Long = &H20

Private Type SHITEMID
  cb As Long
  abID As Byte
End Type

Private Type ITEMIDLIST
  mkid As SHITEMID
End Type

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ( _
  ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
  "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Function GetMyDocumentsFolder() As String
  Dim lRet As Long, IDL As ITEMIDLIST, sPath As String
  lRet = SHGetSpecialFolderLocation(100&, CSIDL_INTERNET_CACHE, IDL)
  If lRet = 0 Then
    sPath = String$(512, Chr$(0))
    lRet = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
    GetMyDocumentsFolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
  Else
    GetMyDocumentsFolder = vbNullString
  End If
End Function, ----
(Coloration syntaxique automatique par Kenji)

__________
Kenji
(
Nouveau forum VBA/Office
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Salut,

System.Environment.GetFolderPath(System.Environment.SpecialFolder.InternetCache)

__________
Kenji
(
Nouveau forum VBA/Office
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008

salut a l'aide de ce code:

Set fso = CreateObject("Scripting.FileSystemObject")
path= fso.GetSpecialFolder(TemporaryFolder)

C:\WINDOWS


comment avoire ce dossier
C:\Documents and Settings\kelm\Local Settings\Temporary Internet Files

merci (vb6)
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
topic déplacé