' YES or NO ĶԻ򣬲ͬѡִвͬĴ
On Error Resume Next 'ִֹ
dim intAnswer
intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files") 
If intAnswer = vbYes Then  
Msgbox("You answered yes.") 
Else Msgbox ("You answered no.")  
End If 