这段vbs怎么写

dim stre ,fs ,f1 ,f2 ,f3 '定义变量
Const ForReading = 1 定义常量
set stre=createobject("wscript.shell") ’连接对象
set fs=createobject("scripting.filesystemobject") ’连接对象
if msgbox ("你好!" ,vbokcancel ,"你好!") = vbok then '弹出对话框，进行选择，如果是确定，则运行以下操作。
Set f1=fs.OpenTextFile("D:\123.txt" ,ForReading) ‘打开文件f3=f1.Readall ‘读取文件内容
f1.Close ’关闭文件
msgbox f3 ’显示文件内容
wscript.quit 退出
else 否则
set f2=fs.getFile("D:\123.txt") 选中指定文件
f2.Delete 删除指定文件
wscript.quit 退出
end if

如果是要打开文件就用 “stre.run "notepad.exe D:\123.txt" ”，
直接放到判断后就可以了。