Temporary Internet Files
Résolu
kelm_by
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
-
2 oct. 2007 à 17:53
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 3 oct. 2007 à 07:26
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 3 oct. 2007 à 07:26
4 réponses
Utilisateur anonyme
3 oct. 2007 à 07:10
3 oct. 2007 à 07:10
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
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
Utilisateur anonyme
2 oct. 2007 à 20:47
2 oct. 2007 à 20:47
Salut,
System.Environment.GetFolderPath(System.Environment.SpecialFolder.InternetCache)
__________
Kenji
(
Nouveau forum VBA/Office
System.Environment.GetFolderPath(System.Environment.SpecialFolder.InternetCache)
__________
Kenji
(
Nouveau forum VBA/Office
kelm_by
Messages postés
296
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
21 novembre 2008
3 oct. 2007 à 02:31
3 oct. 2007 à 02:31
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)
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)
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
3 oct. 2007 à 07:26
3 oct. 2007 à 07:26
topic déplacé