我发觉在这里可以学到很多东西



set s = WScript.CreateObject("WScript.Shell") '创建WScript.Shell对象
Dim myDate
myDate = #4/13/2008#
if myDate > now then
设置E:\Program Files\MTV2007\read_me.txt为只读文件
否者为可写文件