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。