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,
>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) >> >>>>
>>>C:\Documents and Settings\Administrador\Configurações locais\Temporary Internet Files
>>>