删除QQ代码

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:48:11
查找电脑中的QQ文件夹的QQ.EXE
然后删除
前提是我不知道路径的
每条代码都注释一下，谢谢
越简单越好
我要实现的是用VB的语句查找出QQ.EXE
不是真的要删除QQ,我想知道查找的代码
强烈要求代码解释，我想弄明白
解释好的加50分，四楼的代码好像不错
但有些地方还不懂，希望有更完美的答案
谢谢

创建一个按钮,一个 listbox,复制以下代码:

注意:运行这段代码,要引用FSO对象

工程/引用/勾选 microsoft scripting runtime

Private Sub Command1_Click()
Dim fso As New FileSystemObject '定义对象变量
Dim mydrive As Drive
findfile "d:\" '设置查找路径
findfile "e:\"
End Sub
Sub findfile(ByVal mypath As String)'查找过程 ,其中把要查找的文件路径作为参数
Dim fso As New FileSystemObject '定义fso对象
Dim myfolder As Folder '定义文件夹对象
Dim item '定义变体
Set myfolder = fso.GetFolder(mypath) '取得参数路径的"句柄",方便下面操作
If myfolder.Files.Count > 0 Then '如果这个文件夹下有文件,
For Each item In myfolder.Files
If UCase(item.ShortName) = "QQ.EXE" Then List1.AddItem item '并且这个文件名是QQ.EXE ,那么就添加到listbox中
DoEvents
Next
End If
If myfolder.SubFolders.Count > 0 Then '如果有子文件夹存在
For Each item In myfolder.SubFolders
Call findfile(item) '则调用这个过程,查找子文件夹下有没有qq.exe