获取脚本ID的脚本

TC_Path = "***"
process_name = "BL"

Set fso = CreateObject("Scripting.FileSystemObject")

Set parentFolders = fso.GetFolder(TC_Path & process_name)
Set fc = parentFolders.SubFolders

tcid = ""
For Each f in fc
tc_name = f.name
' index = Instr(1, tc_name, "-", 1)
tcid = Mid(tc_name,1, Len(tc_name)) & ";"&tcid
Next

'MsgBox tcid
Set MyFile= fso.CreateTextFile("***"&process_name&".txt", True)
MyFile.WriteLine(tcid)
MyFile.Close