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