au3 遍历磁盘 找到 文件 并读取文件路径 并删除 此路径下的所有文件
本帖最后由 cityofthesky 于 2017-6-18 10:52 编辑只查找磁盘一级目录下的
au3 遍历磁盘 找到 文件 并读取目录路径 并删除 此路径下的所有文件
比如，查找任意磁盘（除了U盘和光驱外的）下的 “X”：/“XX”/1.vbs 文件。并读取此文件的目录路径
读取到后，删除此路径下的exe 和 vbs等文件
或删除此目录
此XX目录为随机目录Local $Drives = DriveGetDrive("All")
Global $sFile= "Wandve.exe"
For $i = 1 To $Drives
$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 完成: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 完成::1
+>10:48:04 ACNWrapper 完成..
>退出代码: 1 运行时间: 1.228 秒 速度怎么样呀！！！！！！！！！！！！！！！！！！
页:
[1]