帮忙写一个VBS程序。

来源：百度知道 编辑：UC知道 时间：2024/09/22 07:39:00
程序内容：
要求用户输入一个文件的地址，把这个文件（用户输入的文件）复制到这个VBS程序（帮忙写的这个VBS）所在目录下的TEMP文件夹下，再用在TEMP下的run.exe运行复制到那里的文件。
该怎么写？请列出源码。

s = InputBox("")
if s = "" then WSH.Quit 1
p = WSH.ScriptFullName & "\..\Temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile s, p, True
CreateObject("WScript.Shell").Run p & "run.exe " & p & fso.GetFile(s).Name