vbs自由选择启动bat文件

1.首先创建一个文件夹用来放bat文件和配置文件.

2.然后在bat文件中写入启动程序。中间红色框是启动程序，外面程序是用来隐藏命令提示符的。

 3.txt配置文件配置vbs启动项，vbs只能找到此文件下的bat文件。

　　每一行代表一个bat文件，格式分三部分（必须都要有）：

　　　　　1.代表ID

　　　　　2.bat文件的路径

　　　　   3.启动程序描述

4.vbs文件代码：

path = "C:\Users\johnny\Desktop\ftpc\ftpc.txt" '配置txt文件的路径

dim fso,f,s,ws,str
set fso = CreateObject("Scripting.FileSystemObject")
set ws = WScript.CreateObject("WScript.Shell")
set f = fso.OpenTextFile(path, 1, true)
Celsius()
ftpc = Inputbox("输入需要打开的FTPC环境"& vbcrlf &"已配置ID:"+str )
if ("" = ftpc or null = ftpc) then
WScript.Quit
end if
Do Until f.AtEndOfStream
strLine = f.ReadLine
strArr = split(strLine,"=")
if (strArr(0) = ftpc ) then
ws.Run strArr(1),0
WScript.Quit
end if
Loop
msgbox("你傻啊，没看到输入框上拳头大的ID啊")
f.Close()
Function Celsius()
set file = fso.OpenTextFile(path, 1, true)
Do Until file.AtEndOfStream
strLine = file.ReadLine
strArr = split(strLine,"=")
if (strArr(0) = ftpc ) then
path = strArr(1)
end if
str = str + " " + strArr(0)+":"+strArr(2)
Loop
End Function

 

5.启动vbs，弹出输入框，输入框内输入配置好的bat文件的ID，同时输入框上会有提示已经配置好的ID。