Option Explicit
'定义一个路径常数
Const strPathName = "d:\test\"
Private Sub Command1_Click()
Dim strFileName As String
strFileName = Dir(strPathName & "*.*", vbHidden)
Do While strFileName <> ""
DoEvents
If GetAttr(strPathName & strFileName) And vbHidden Then
Debug.Print strFileName
'kill不能删除隐藏文件,所以要恢复文件的属性
SetAttr strPathName & strFileName, vbNormal
Kill strPathName & strFileName
End If
strFileName = Dir
Loop
End Sub