求一排除删除算法！

mhgd

求一排除删除算法！高手请指教，
如E 盘有我自己的文件夹，工具，软件，还有其它杂七杂八的目录，只想保留工具，软件，两个目录，删除其它一切目录及文件，该怎么写。多谢了，

水木子

没试过，你先看看吧！

#include <File.au3>
Local $Path = 'E:\', $sFile

$aFileList = _FileListToArray($Path)
If Not @error Then
        For $i = 1 To $aFileList[0]
                If StringInStr($aFileList[$i], '工具') = 0 And StringInStr($aFileList[$i], '软件') = 0 Then $sFile &= $Path & $aFileList[$i] & @CRLF                
        Next
EndIf

MsgBox(0, '需要删除的文件', $sFile)

crkey12345

根据帮助文件：
#Include <File.au3>
#Include <Array.au3>

$FileList=_FileListToArray("E:\","*", 2)
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")

接下来用历遍法，判断名字等于“工具”或“软件”就无动作，不等于就删除。
我不写了

mhgd

回复 2# 水木子


多谢了，你的代码很好用，谢谢

learn321

没试过，你先看看吧！
水木子 发表于 2010-5-25 10:36

    真高手啊！代码简单实用！学习