Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Temporary Internet Files
Message
 
To
19/12/2005 06:33:17
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01070798
Message ID:
01080978
Views:
21
Sorry for the delay. I was unable to check my mail during the previous week.

Probably you are talking about cookies that are visible in the Temp Internet Files folder, but actually located in the Cookies folder:

CSIDL_COOKIES = 33 &&Cookies Folder
....
SHGetSpecialFolderPath(0, @lsSpecialFolderPath, CSIDL_COOKIES)
....

>In this block
>
>For Each oItem In oFSO.GetFolder(lsSpecialFolderPath).Files
>  Dime laFiles[IIF(type("laFiles")#"C",1,alen(laFiles) + 1)]
>  laFiles[alen(laFiles)] = Addbs(lsSpecialFolderPath) + oItem.Name
>Endfor
>
>the oFSO.GetFolder(lsSpecialFolderPath).Files.Count is 0, but I have many files into lsSpecialFolderPath folder.
>
>
>
>
>>There can be several reasons for this:
>>- foxpro cannot see the file
>>- you do not have user privileges to delete the file
>>- file is in use, etc...
>>
>>Try something similar to this. It will attempt to remove ALL files from directory:
>>
>>
>>
>>lsSpecialFolderPath =addbs(lsSpecialFolderPath)
>>
>>oFSO = CreateObject("Scripting.FileSystemObject")
>>RELEASE atemp
>>FOR EACH oItem IN oFSO.GetFolder(lsSpecialFolderPath).Files
>>	Dime atemp[IIF(type("atemp")#"C",1,alen(atemp)+1)]
>>	atemp[alen(atemp)]=ADDBS(lcdir)+oItem.NAme
>>ENDFOR
>>
>>if type("atemp")="C"
>>        ON ERROR wait wind time 0.5 "access denied, file "+atemp[ia]
>>
>>	for ia=1 to alen(atemp)
>>		oFSO.Getfile(atemp[ia]).DELETE(.t.)
>>	endfor
>>
>>       ON error
>>endif
>>
>>
>>
>>
>>>Hi,
>>>
>>>I need to delete a file in the Temporary Internet Files folder, but the DELETE command don't works in this folder.
>>>
>>>How can I do ?
>>>
>>>lsSpecialFolderPath  = Space(255)
>>>CSIDL_INTERNET_CACHE = 32  &&Temp. Internet Files Folder
>>>DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ;
>>>  LONG hwndOwner, ;
>>>  STRING @lsSpecialFolderPath, ;
>>>  LONG  nWhichFolder
>>>SHGetSpecialFolderPath(0, @lsSpecialFolderPath, CSIDL_INTERNET_CACHE)
>>>lsSpecialFolderPath = Addbs(SubStr(RTrim(lsSpecialFolderPath),1,Len(RTrim(lsSpecialFolderPath))-1))
>>>Delete File (lsSpecialFolderPath + "MyFile.exe") && The file is not deleted
>>>
>>>
>>>
>>>
>>>
>>>>
>>>>CSIDL_INTERNET_CACHE    =       32  &&Temp. Internet Files Folder
>>>>
>>>>DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ;
>>>>      LONG hwndOwner, ;
>>>>      STRING @cSpecialFolderPath, ;
>>>>      LONG  nWhichFolder
>>>>SHGetSpecialFolderPath(0, @cSpecialFolderPath, CSIDL_INTERNET_CACHE)
>>>>? SubStr(RTrim(cSpecialFolderPath),1,Len(RTrim(cSpecialFolderPath))-1)
>>>>
>>>>
>>>>
>>>>>Hi,
>>>>>
>>>>>
>>>>>How can I get the "Temporary Internet Files" path ?
>>>>>
>>>>>Like
>>>>>
>>>>>C:\Documents and Settings\Administrador\Configurações locais\Temporary Internet Files
>>>>>
Previous
Reply
Map
View

Click here to load this message in the networking platform