如何获取IE缓存文件

q3_2006

C:\Users\Administrator\AppData\Local\Microsoft\Windows\Temporary Internet Files
这个文件夹如何获取
只知道这个
(getvar "TEMPPREFIX")
想清理下载文件缓存..不知道怎么获取文件夹..请大师们指导一下哈..谢谢了!

csharp

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
下的
Cache 就是这个目录

q3_2006

csharp 发表于 2017-12-11 19:48

太感谢了..注册表一窍不通呀..原来一句就搞定了..

kqqt6236

这个方便。

q3_2006

csharp 发表于 2017-12-11 19:48

为什么用vl-file-delete不能删除缓存文件呢..
准确说是(vl-directory-files path "*.*")根本就没有任何文件..这是什么原因呢..请大师指导一下..谢谢
(setq path (strcat (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Cache")
"\\"
))

csharp

q3_2006 发表于 2017-12-12 09:12

C 盘有些目录是有权限要求的（win7 以上），还可以写个 批处理 执行这个操作

csharp

使用 FSO 获取目录下所有文件

2. 
   
3. (defun printfolderfiles (path / fso folder )
   
4.   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))
   
5.   (setq folder (vlax-invoke fso 'getfolder path))
   
6.   (vlax-for f (vlax-get folder 'files)
   
7.     (princ "\n")
   
8.     (vlax-get f 'name)
   
9.   )
   
10.   (vlax-release-object folder)
    
11.   (vlax-release-object fso)
    
12.   nil
    
13. )

<br /> (defun printfolderfiles (path / fso folder )<br />   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))<br />   (setq folder (vlax-invoke fso 'getfolder path))<br />   (vlax-for f (vlax-get folder 'files)<br />     (princ "\n")<br />     (vlax-get f 'name)<br />   )<br />   (vlax-release-object folder)<br />   (vlax-release-object fso)<br />   nil<br /> )

/db_自贡黄明儒_

csharp 发表于 2017-12-12 11:32

这种方法能删除只读文件，vl-file-delete却不能。

q3_2006

csharp 发表于 2017-12-12 11:32

一天都在外面..现在才看到...谢谢..这就来试..

q3_2006

csharp 发表于 2017-12-12 11:32

是不是我电脑设置了什么..我读不到..还是NIL

newer

q3_2006 发表于 2017-12-12 17:05

落了 PRINC，加上就打印出来了

1. (defun printfolderfiles (path / fso folder )
   
2.   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))
   
3.   (setq folder (vlax-invoke fso 'getfolder path))
   
4.   (vlax-for f (vlax-get folder 'files)
   
5.     (princ "\n")
   
6.     (princ (vlax-get f 'name))
   
7.   )
   
8.   (vlax-release-object folder)
   
9.   (vlax-release-object fso)
   
10.   nil
    
11. )
    
12. 
    

(defun printfolderfiles (path / fso folder )<br />   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))<br />   (setq folder (vlax-invoke fso 'getfolder path))<br />   (vlax-for f (vlax-get folder 'files)<br />     (princ "\n")<br />     (princ (vlax-get f 'name))<br />   )<br />   (vlax-release-object folder)<br />   (vlax-release-object fso)<br />   nil<br /> )<br /> <br />

(printfolderfiles "d:")

q3_2006

newer 发表于 2017-12-12 17:34

(printfolderfiles (strcat (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Cache")
"\\"
))
但缓存文件不能显示出来..

csharp

_$ (printfolderfiles (strcat (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Cache")
"\\"
))

counters.datnil
_$
没问题， Windows7 64bit autocad 2010

csharp

q3_2006 发表于 2017-12-12 17:38

删除可以这样,慎用！！！！

2. 
   
3. (defun delfolderfiles (path / fso folder)
   
4.   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))
   
5.   (setq folder (vlax-invoke fso 'getfolder path))
   
6.   (vlax-for f (vlax-get folder 'files)
   
7.     ;;(princ (strcat "\n" (vlax-get f 'name)))
   
8.     (vl-catch-all-apply
   
9.       '(lambda ()
   
10.          (vlax-invoke fso 'deletefile (vlax-get f 'path) :vlax-true)
    
11.        )
    
12.     )
    
13.   )
    
14.   (vlax-release-object folder)
    
15.   (vlax-release-object fso)
    
16.   nil
    
17. )
    

<br /> (defun delfolderfiles (path / fso folder)<br />   (setq fso (vlax-get-or-create-object "scripting.filesystemobject"))<br />   (setq folder (vlax-invoke fso 'getfolder path))<br />   (vlax-for f (vlax-get folder 'files)<br />     ;;(princ (strcat "\n" (vlax-get f 'name)))<br />     (vl-catch-all-apply<br />       '(lambda ()<br />          (vlax-invoke fso 'deletefile (vlax-get f 'path) :vlax-true)<br />        )<br />     )<br />   )<br />   (vlax-release-object folder)<br />   (vlax-release-object fso)<br />   nil<br /> )<br />

q3_2006

csharp 发表于 2017-12-12 17:53

删除其它文件夹都正常..就是不能删除缓存文件..

(delfolderfiles (strcat (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Cache")
"\\"
))

没删除掉任何东西