au3 遍历磁盘 找到 文件 并读取文件路径 并删除 此路径下的所有文件

cityofthesky

只查找磁盘一级目录下的
au3 遍历磁盘 找到 文件 并读取目录路径 并删除 此路径下的所有文件
比如，查找任意磁盘（除了U盘和光驱外的）下的 “X”：/“XX”/1.vbs 文件。并读取此文件的目录路径
读取到后，删除此路径下的exe 和 vbs等文件
或删除此目录
此XX目录为随机目录

Local $Drives = DriveGetDrive("All")
Global $sFile= "Wandve.exe"
For $i = 1 To $Drives[0]
   $Path = StringUpper($Drives[$i])&""
   SearchFiles($Path,$sFile)
Next
Func SearchFiles($Path,$sFile)
   Global $Folder,$Files,$File,$subFolder,$subFolders
   $fso = ObjCreate("Scripting.FilesyStemObject")
   $Folder = $fso.GetFolder($Path)
   $Files = $Folder.Files
   For $File In $Files
   If $File.Name = $sFile Then 
   Run($Path & $File.Name)
   Exit
   EndIf
   Next 
EndFunc

这个代码执行错误
>运行 AU3Check (3.3.9.21)  开始目录:D:\Program Files\autoit3
+>10:48:03 AU3Check 完成[CODE]:0
>运行:(3.3.9.21):D:\Program Files\autoit3\autoit3_x64.exe "D:\Users\Miracles\Desktop\123.au3"   
"D:\Users\Miracles\Desktop\123.au3" (11) : ==> Variable must be of type "Object".:
$Files = $Folder.Files
$Files = $Folder^ ERROR
->10:48:03 AutoIt3.exe 完成:[CODE]:1
+>10:48:04 ACNWrapper 完成..
>退出代码: 1        运行时间: 1.228 秒

zhygoodluck

速度怎么样呀！！！！！！！！！！！！！！！！！！