【求教】 请问VBS怎么防止删除多个文件

Set fso=CreateObject("Scripting.FileSystemObject")
pro=InputBox("请输入要保护的文件路径:","文件保护-F1 保护文件")
proa=InputBox("请输入要保护的文件2路径:","文件保护-F1 保护文件")
prob=InputBox("请输入要保护的文件3路径:","文件保护-F1 保护文件")
proc=InputBox("请输入要保护的文件4路径:","文件保护-F1 保护文件")
prod=InputBox("请输入要保护的文件5路径:","文件保护-F1 保护文件")
If pro="" Then WScript.Quit
If fso.FileExists(pro) Then
Else
MsgBox "找不到指定文件!!!",48,"文件保护-F1 保护文件"
WScript.Quit
End If
Set Tro=fso.OpenTextFile(pro,8,False)
Set Troa=fso.OpenTextFile(proa,8,False)
Set Trob=fso.OpenTextFile(prob,8,False)
Set Troc=fso.OpenTextFile(proc,8,False)
Set Trod=fso.OpenTextFile(prod,8,False)
MsgBox "文件已被保护!",64,"文件保护-F1 保护文件"
Do
WScript.Sleep 1800000
Loop