如何实现将本机所有 共享文件夹 根目录下的 *.exe 文件删除
本帖最后由 elexy 于 2010-3-25 15:52 编辑如题，请高手赐教！小弟谢谢了！
谢谢3楼，怪我表达不清楚，我说的 "共享文件夹" 是指系统里通过右键共享出去的文件夹或驱动器(可通过net share命令看到)，不是系统文档里自带的共享文件夹 顶上去求解！！！！
; 顯示目前資料夾內的所有檔案名稱
$search = FileFindFirstFile("C:\Documents and Settings\All Users\Documents\*.EXE")
; 若搜尋成功進行檢查
If $search = -1 Then
MsgBox(0, "錯誤", "沒有找到符合的檔案/資料夾。")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
FileDelete("C:\Documents and Settings\All Users\Documents\"&$file)
WEnd
; 關閉搜尋控制碼
FileClose($search)
Run(@ComSpec & " /c " & 'del /F /S /Q "C:\Documents and Settings\All Users\Documents\*.EXE"', "", @SW_HIDE) 谢谢分享！！学习了 谢谢3楼，怪我表达不清楚，我说的 "共享文件夹" 是指 操作系统里通过右键共享出去的文件夹或驱动器，不是自带的共享文件夹 分享的共用資料夾路徑為何? 本帖最后由 afan 于 2010-3-26 13:04 编辑
Dim $i = 1, $reg = 'HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Shares', $Path
While 1
$var = RegEnumVal($reg, $i)
If @error Then ExitLoop
$Path = StringRegExpReplace(RegRead($reg, $var), '(?s).+\nPath=([^\n]+)\n.+', '\1')
;msgbox(0, '共享文件夹路径：', $Path)
RunWait(@ComSpec & ' /c del /f /q "' & $Path & '\*.exe"', '', 0)
$i += 1
WEnd afan 的方法很好!
我怎沒想到從 REG 下手 . . . 囧
页:
[1]