请帮助我使用VBScript
实现以下功能1.带有三个选项卡的消息框复制，更新，取消并显示“欢迎使用AVG
”定义fies复印机/更新程序模块。单击复制复制文件或更新更新
定义文件。
2.如果选择了复制，则运行脚本的驱动器号（usb驱动器）存储为</ p>
变量，目录“（usb drive）更新”创建（如果不存在，新建和文件不存在）
在更新文件夹中复制到（例如= xcopy / d），来自
“％allusersprofile％\ applic~1 \ avg8 \ update \ download”
3.如果可能显示消息'复制文件，复制时。
完成后复制显示'文件已成功复制'。
4.如果选择了更新，则创建tdirectory“c：\ Update”（如果不存在），new和文件不
存在于“c：\ Update”中，从（usb drive）更新文件夹
复制到5.如果在复制时可能显示“正在更新文件”消息。
完成后更新，显示'文件已成功更新'。单击确定退出并开始
“C：\ PROGRA〜1 \平均\ AVG8 \ avgui.exe”
答案 0 :(得分：0)
好吧，我这样做的方法是为每个功能任务创建独立函数，然后将这些函数包装在HTA中，为您提供所需的界面层。
答案 1 :(得分：0)
据我所知your other question，您自己设法找到了大部分这些任务的解决方案。这是你的＃2的提示，我没有注意到你的脚本实现了。
2.如果选择了复制，则运行脚本的驱动器号（usb驱动器）存储为变量
您可以使用WScript.ScriptFullName属性检索当前脚本文件的完整路径，然后使用FileSystemObject.GetDriveName方法提取驱动器号：
Set objFSO = CreateObject("Scripting.FileSystemObject")
strUSBDrive = objFSO.GetDriveName(WScript.ScriptFullName)
这将为您提供后跟冒号的驱动器号（例如J:）。然后，您可以将此值与目标文件夹名称连接以获取完整路径，例如：
MsgBox strUSBDrive & "\Update"