如何实现将本机所有共享文件夹根目录下的 *.exe 文件删除

elexy · 发表于 2010-3-23 14:11:07

本帖最后由 elexy 于 2010-3-25 15:52 编辑

如题，请高手赐教！小弟谢谢了！

谢谢3楼，怪我表达不清楚，我说的 "共享文件夹" 是指系统里通过右键共享出去的文件夹或驱动器(可通过net share命令看到)，不是系统文档里自带的共享文件夹

elexy · 发表于 2010-3-25 10:24:33

顶上去求解！！！！

We! · 发表于 2010-3-25 12:14:35

; 顯示目前資料夾內的所有檔案名稱
$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)

masterpcc · 发表于 2010-3-25 13:13:51

谢谢分享！！学习了

elexy · 发表于 2010-3-25 15:50:35

谢谢3楼，怪我表达不清楚，我说的 "共享文件夹" 是指操作系统里通过右键共享出去的文件夹或驱动器，不是自带的共享文件夹

We! · 发表于 2010-3-25 23:04:06

分享的共用資料夾路徑為何?

afan · 发表于 2010-3-25 23:52:28

本帖最后由 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

We! · 发表于 2010-3-26 03:54:15

afan 的方法很好!

我怎沒想到從 REG 下手 . . . 囧

		自动登录	找回密码
密码			加入

[系统综合] 如何实现将本机所有共享文件夹根目录下的 *.exe 文件删除

相关帖子

评分

[系统综合] 如何实现将本机所有 共享文件夹 根目录下的 *.exe 文件删除

相关帖子

评分

[系统综合] 如何实现将本机所有共享文件夹根目录下的 *.exe 文件删除