VB Forum / COM / November 2007

''''''''''These APIs are only for Windows Vista''''''''''''''''''''
'
Private Const FOLDERID_InternetCache = "{352481E8-33BE-4251-BA85-6007CAEDCF9D}
"
Private Const FOLDERID_History = "{D9DC8A3B-B784-432E-A781-5A1130A75963}"
Private Const FOLDERID_Cookies = "{2B0F765D-C0E9-4171-908E-08A611B84FF6}"
Private Const FOLDERID_LocalAppDataLow = "{A520A1A4-1780-4FF6-BD18-
167343C5AF16}"
Private Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type
Private Declare Function CLSIDFromString Lib "ole32" _
                        (ByVal lpszGuid As Long, _
                         pGuid As GUID) As Long

Private Const E_ACCESSDENIED = &H80070005
Private Declare Function IEGetWriteableFolderPath Lib "ieframe" _
                       (clsidFolderID As GUID, dirPath As String) As Long





Public Sub getWritableFilePath(filePath As String)
Dim clsWritableFile As GUID
Dim hr As Long, tmpPath As String
CLSIDFromString StrPtr(FOLDERID_LocalAppDataLow), clsWritableFile
hr = IEGetWriteableFolderPath(clsWritableFile, tmpPath)
If hr = 0 Then filePath = tmpPath
End Sub