cheng8457 发表于 2011-7-30 12:42:43

如何讓AUTOIT刪除多餘的資料夾?

本帖最后由 cheng8457 于 2011-7-30 12:46 编辑

我在D槽的目錄下 有A B C的資料夾
我想保留A B 資料夾
C D Q W R 等等的資料都刪除
要讓他如何去判斷呢?
PS: 多餘的資料夾名稱不一定

itljl 发表于 2011-7-30 14:00:06

两个FOR 循环可以做到。

wa18239 发表于 2011-7-30 14:38:39

#Include <Array.au3>
#Include <File.au3>
Dim $a = "a" , $b = "b"
Local $aPath = (@scriptdir&"\aa")
DirCreate ($aPath)
DirCreate ($aPath&"\a")
DirCreate ($aPath&"\b")
DirCreate ($aPath&"\c")
Local $name = _FileListToArray($aPath)
_ArrayDisplay($name, $aPath&"下有")
If $name <> 0Then
                For $i = 1 to $name
                If $name[$i] <> $a and $name[$i] <> $b Then
                        MsgBox(0,"","你要删掉"&$name[$i])
                EndIf
        Next
        EndIf

DirRemove($aPath,1)
怎么用两个FOR呢，看来我写得长了，请大大指点
页: [1]
查看完整版本: 如何讓AUTOIT刪除多餘的資料夾?