Temporary Internet Files 目录里的文件用什么方法可以 读取 复制[已解决]使用IE8
本帖最后由 410521a 于 2013-5-24 13:40 编辑别的路行不通· 我选择了这条路· 但问题又出现在·里边的文件AU3检测不到，复制不出，，
请高手赐教
$FileList=_FileListToArray(@UserProfileDir &"\Local Settings\Temporary Internet Files\")
If @Error=1 Then
MsgBox (0,"","No Folders Found.")
Exit
EndIf
If @Error=4 Then
MsgBox (0,"","No Files Found.")
Exit
EndIf
_ArrayDisplay($FileList,"$FileList")
没有文件· 我想要一个JPG文件 #Include <Array.au3>
Local $sPath = RegRead('HKCU64\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders', 'Cache')
Local $sFiles
_FileFindAll($sPath, $sFiles, '.jpg')
Local $aLine = StringRegExp($sFiles, '\V+', 3)
_ArrayDisplay($aLine, '')
Func _FileFindAll($sDir, ByRef $sOut, $sExt)
Local $hSearch = FileFindFirstFile($sDir & '\*.*')
If $hSearch = -1 Then Return
While 1
Local $sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If @extended Then
_FileFindAll($sDir & '\' & $sFile, $sOut, $sExt)
ContinueLoop
EndIf
If StringRight($sFile, 4) = $sExt Then $sOut &= $sDir & '\' & $sFile & @CRLF
WEnd
FileClose($hSearch)
EndFunc ;==>_FileFindAll 大哥· 你写的东西看不太懂能解释下吗？
我用的这个
searchpst("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\","*","jpg");查找后缀名文件;
Func searchpst($patch,$str,$mask);自定义搜索函数
Local $search,$file,$array,$pst
$search = FileFindFirstFile($patch&$str)
If $searchThen
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$array=StringSplit($file,".")
$pst =$array
if $pst=$mask Then
FileCopy($patch&"yzm*.jpg","d:\yzm.jpg",1)
EndIf
if FileChangeDir( $patch&$file)=1 Then
searchpst($patch&$file&"\",$str,$mask)
EndIf
WEnd
FileClose($search)
EndIf
EndFunc User Shell Folders cache
页:
[1]