>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.
>> >>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 >> >>>>
>>>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
>>>>>