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:
01072481
Vues:
31
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform