永发信息网

请问用vb怎么实现在未知路径上搜索扩展名为*.ico的文件,并且把搜索到的文件删除掉?

答案:1  悬赏:40  手机版
解决时间 2021-01-30 06:49
请问用vb怎么实现在未知路径上搜索扩展名为*.ico的文件,并且把搜索到的文件删除掉?
最佳答案
以下代码可删除d盘中所有扩展名为*.ico的文件。如果要删除所有硬盘分区中的指定文件,你可以遍历所有分区盘符:

Private Sub Command1_Click()
ss "d:"
End Sub

Sub ss(d As String)
Dim dd As String, ds() As String, i As Integer, s As Integer
dd = Dir(d & "\", vbNormal + vbDirectory)
Do Until dd = ""
If dd <> "." And dd <> ".." Then
If (GetAttr(d & "\" & dd) And vbDirectory) = vbDirectory Then
s = s + 1
ReDim Preserve ds(1 To s)
ds(s) = d & "\" & dd
Else
If LCase(Right(dd, 4)) = ".ico" Then Kill d & "\" & dd
End If
End If
dd = Dir
Loop
For i = 1 To s
ss ds(i)
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
小面积的房子适合卖给那类人群?
博思鲜花婚庆地址好找么,我有些事要过去
日无暇晷的意思是什么啊?知道的请说下!
郑州经开区那个小学收插班生
正弦定理题目一道 急
东方婚庆策划中心地址在什么地方,我要处理点
朝阳交通支队劲松大队执法站地址在什么地方,
qc怎样选题
有什么适合给狗狗的英文名字么
工程清标需要注意哪些方面
钟爱一生私人定制地址在哪,我要去那里办事
【美其名曰是什么意思】...都没有.哪一个是对
七起八落的意思是什么啊?知道的请说下!
室内电子温度计需要检测多长时间结果才是正确
朝阳交通支队双桥大队执法站怎么去啊,我要去
推荐资讯
做什么生意才能赚大钱?合伙人很懒很没用,好吃
P3插入电脑只能是充电,没有其他反应
匡备的意思是什么啊?知道的请说下!
下图示意某地区年均温的分布,樟树是亚热带常
我虽然抽烟喝酒纹身说脏话但是我知道我是个好
韩剧 BIG 结局女主跟谁在一起了?
我家房屋出租,现在因线路老化引发火灾,我家
小余发艺地址在什么地方,我要处理点事
沙江小学(茂名电白)地址好找么,我有些事要过
反应物Cl2、FeBr2,产物Fecl3、FeBr3,为什么就
【世界上面积最大的洲】世界哪个洲面积最大?
描述笨女人的句子
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?