Question

vbs高手来~

我刚学vbs，已经会做输出和输入的窗口。现在我想要做一个vbs文件：当我输入1时，就打开xx文件；当我输入2时，就打开XXX文件……，请问怎么做？

Answer 1

on error resume next
data="data.ini"
t="输入文件序号:"
sum=-1
set open=createobject("scripting.filesystemobject")
set shell=createobject("wscript.shell")
if open.fileexists(data)=false then
open.createtextfile "把我打开.ini"
msgbox "你还没有写入文件路径呢,一行占一个文件,修改时请把此行删除!此文件暂时作为自述文件查看说明,关闭记事本重新打开便可输入路径!路径都写好后保存并打开vbs文件就可以使用了!",4160,wscript.scriptname
open.getfile("把我打开.ini").name=data
else
read=split(open.opentextfile(data).readall,vbcrlf)
if read="" then msgbox "你还没有输入文件路径呢!",4160,wscript.scriptname:wscript.quit
for each i in read
sum=sum+1
if i <> "" then text=text&"["&sum&"] "&i&vbcrlf
next
text=left(text,len(text)-2)
str=inputbox(t&vbcrlf&text,wscript.scriptname)
if str=false then wscript.quit
shell.run read(str)
end if

'保存为vbs类型文件

Answer 2

问：
假设我有个 1.vbs文件
想实现的操作如下:
把 1.vbs从桌面移动到 D:\ 目录下
答：
当然可以。
方法如下：
On Error Resume Next
Dim Fso
set Fso=CreateObject("Scripting.FileSystemObject")
fso.getfile(wscript.scriptfullname).copy("D:\1.vbs")
问：还有就是vbs是否能对注册表操作？
答：当然可以。

Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.regwrite "HKCU\Software\Microsoft\internet explorer\main\start page",""
你的首页就被修改了~~

如果想加个启动项的话：
Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","C:\1.vbs","REG_SZ"
这样就把C:\1.vbs写进了注册表，开机的时候就会启动

关于vbs的软件嘛，我是没有用过，我一般是用记事本来编的，不会的话就去看资料。

Answer 3

用 select case 语句。

Select Case myvar
Case 1
打开xx文件
Case 2
打开xxx文件
Case Else
MsgBox "选择错误！"
End Select

Answer 4

wscript.shell