本帖最后由 netegg 于 2011-5-5 21:59 编辑
回复 11# cq1680 Local $array = DriveGetDrive('Fixed')
$array = _arraydelete($array,0)
For $i In $aArray
_deltemp($i)
Next
Func _deltemp($current)
Local $search = FileFindFirstFile($current & "\*.*")
While 1
Dim $file = FileFindNextFile($search)
If @error Or StringLen($file) < 1 Then ExitLoop
If Not StringInStr(FileGetAttrib($current & "" & $file), "D") And ($file <> "." Or $file <> "..") AND stringinstr($current & "" & $file, 'temp') Then
FileDelete($current & "" & $file)
EndIf
If StringInStr(FileGetAttrib($current & "" & $file), "D") And ($file <> "." Or $file <> "..") Then
_deltemp($current & "" & $file)
EndIf
WEnd
EndFunc ;==>_deltemp
大概可以,没试 |