mhgd 发表于 2010-5-25 09:25:39

求一排除删除算法！

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

水木子 发表于 2010-5-25 10:36:07

没试过，你先看看吧！#include <File.au3>
Local $Path = 'E:\', $sFile

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

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

crkey12345 发表于 2010-5-25 10:40:02

本帖最后由 crkey12345 于 2010-5-25 10:42 编辑

根据帮助文件：
#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 发表于 2010-5-25 11:21:02

回复 2# 水木子


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

learn321 发表于 2010-5-29 19:45:19

没试过，你先看看吧！
水木子 发表于 2010-5-25 10:36 http://www.autoitx.com/images/common/back.gif


    真高手啊！代码简单实用！学习
页: [1]
查看完整版本: 求一排除删除算法！