田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



五一假期连云港一日游 百看和霏凡的导航主页竟然一样?
未知 自定义病毒文件杀毒工具   [ 日期:2007-05-02 ]   [ 来自:本站原创 ]  HTML
自定义病毒文件杀毒工具


这样功能的主流杀毒软件好像都没有啊,也有几个类似的网友开发的免费的这样的软件,但是我就是感觉不好。

一个是自定义操作不好。

我想写一个操作更简便的自定义病毒文件的杀毒工具。


dir用来查找文件 vb2007-04-24 11:20简单讲,就是搜索文件咯 
f=dir("D:\1.txt") 
如果1.txt存在,则f="1.txt" 
如果1.txt不存在,则f="" 

也可以用通配符*和? 
如D盘根目录下存在 
1.txt 
12.txt 
123.txt 
则 
f=dir("D:\?.txt") 'f=1.txt 
f=dir("D:\*2.txt") 'f=12.txt 
f=dir("D:\???.txt")'f=123.txt 

如果要搜索该目录下的全部文件则 
f=dir("D:\*") 
do while f<>"" 
' f为文件名 
f=dir '不带参数,则会搜索下一个文件 
loop 


dir用来查找文件. 实例

使用dir 
Option Explicit 
Dim filesearch As String 
Dim findflag As Boolean 

' 清空搜索结果 
Private Sub clrcmd_Click() 
lstfiles.Clear 
End Sub 

' 开始查找文件 
Private Sub cmdgo_Click() 
Dim starttime As Single 
Dim i As Integer 
Dim Add As Boolean 

lstfiles.Clear '查找文件之前先清空结果 
lstdirs.Clear 
findflag = True '设置查找标志 
stopcmd.Enabled = True '设置停止查找按钮为可用 
clrcmd.Enabled = False '设置清空结果按钮为不可用 
starttime = Timer '记录开始查找时刻 
filesearch = Combo1.Text 
' 将查找文件加入到组合框中 
For i = 0 To Combo1.ListCount - 1 
If Combo1.List(i) <> Combo1.Text Then 
Add = True 
Else 
Add = False 
End If 
Next 
If Add = True Then 
Combo1.AddItem (Combo1.Text) 
End If 
lstdirs.AddItem (Drive1.Drive & "\") 
' 执行查找文件 
Do 
status.Caption = "Searching . . . " & lstdirs.List(0) 
' 调用函数 
findfilesdir lstdirs.List(0) 
' 从目录列表中移除 
lstdirs.RemoveItem 0 
' 中途退出查找 
If findflag = False Then 
Exit Do 
End If 
Loop Until lstdirs.ListCount = 0 
stopcmd.Enabled = False 
clrcmd.Enabled = True 

' 显示查找文件的信息 
status.Caption = "用时" & Timer - starttime & "秒 " & "找到" & lstfiles.ListCount & "个文件" 
End Sub 

' 用来查找文件的函数 
Public Sub findfilesdir(DirPath As String) 
Dim filestring As String 
DirPath = Trim(DirPath) 

If Right(DirPath, 1) <> "\" Then 
DirPath = DirPath & "\" 
End If 
' 使用Dir函数获得DirPath目录下的文件或目录 
filestring = Dir(DirPath & "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory) 
Do 
DoEvents '转让控制权,以便让操作系统处理其它的事件 
If filestring = "" Then 
Exit Do 
Else 
If (GetAttr(DirPath & filestring) And vbDirectory) Then 
If Left(filestring, 1) <> "." And Left(filestring, 2) <> ".." Then 
lstdirs.AddItem DirPath & filestring & "\" 
End If 
Else 
' 比较以确定是否是要查找的文件 
If (filestring Like filesearch) Then 
lstfiles.AddItem DirPath & filestring 
End If 
End If 
End If 
filestring = Dir ' 返回其他文件名 
Loop 
End Sub 

' 结束退出 
Private Sub quitcmd_Click() 
Unload Me 
End 
End Sub 

' 停止查找 
Private Sub stopcmd_Click() 
findflag = False 
stopcmd.Enabled = False 
End Sub 

Private Sub Form_Load() 
Combo1.AddItem ("*.*") 
End Sub


[本日志由 田草 于 2007-05-03 12:06 AM 编辑]


暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*6=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©