关于vbs的编程~

请用VBS编出以下一个功能的程序：打开D盘目录下名为“02”文件夹中的一个“01.jpg”的图片，5秒后将其关闭。

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set fso = CreateObject("Scripting.FileSystemObject")

objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg

If intReturn Then
fso.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
@5000
End if