UC知道vb删除隐藏文件
来源：百度知道 编辑：UC知道 时间：2024/06/06 02:09:22
Private Sub Command1_Click()
SetAttr "H:\*.exe", vbNormal
Kill ("H:\*.exe")
Label1.Caption = "删除成功"
End Sub
为什么执行不起来，麻烦编一个删除H盘所有exe文件程序
SetAttr "H:\*.exe", vbNormal
Kill ("H:\*.exe")
Label1.Caption = "删除成功"
End Sub
为什么执行不起来，麻烦编一个删除H盘所有exe文件程序
'去除文件属性时不支持通配符,所以需要一个一个地去除
Dim strFile As String
'查找 e:\test文件夹中所有 TXT 文件,去除各种属性
strFile = Dir("e:\test\*.txt", vbArchive Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)
Do While strFile <> ""
SetAttr "e:\test\" & strFile, vbNormal
strFile = Dir()
Loop
'删除 e:\test 文件夹中所有 TXT 文件
Kill "e:\test\*.txt"