Dim file,fileName,getReturn
filePath = "C:\Documents and Settings\Administrator\桌面\" '文件路徑
Set file=CreateObject("Scripting.FileSystemObject")
getReturn = MsgBox("確定要清除?", vbInformation + vbOKCancel, "警告提示")if getReturn = vbOK thenfor i = 0 to 5fileName = i&".txt"file.DeleteFile(filePath & fileName)next
end if