Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Temporary Internet Files
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01070798
Message ID:
01080978
Vues:
22
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
>>>>>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform