请教,如何删除自身外的所有ABC目录?

木头人

搜索硬盘上的所有分区根目录下(只要跟目录下)是否存在 ABC 文件夹, 如果存在的话就删除除了脚本本身目录以外(注意:脚本目录也存在根目录下,并且也是以ABC文件夹名名)的所有根目录下的 ABC 文件夹,请问应该如何实现呢?谢谢

sunafter

多看下帮助文件其实很简单的

$var = DriveGetDrive("all")

If Not @error Then
        For $i = 1 To $var[0]
                Dim $Dir = $var[$i] & "\ABC"
                MsgBox(0, "", $Dir)
                If FileExists($Dir) And $Dir <> @ScriptDir Then
                        DirRemove($Dir,1)
                EndIf
        Next
EndIf

llssky2003

很像我以前写的删除U盘病毒的代码，哈哈。。