提出的问题，现这样解决，直接上代码：

'on error resume next

set fso = createobject("scripting.filesystemobject")
for each list in fso.getfolder("T0002\cloud_xml7").files

Set f=fso.OpenTextFile(list,1)'以只读方式打开
str=f.ReadAll'读取所有内容
str=Replace(str,"style=##tdxbk##","style=tdxbk")'替换文本。
f.Close'关闭文件

Set f=fso.OpenTextFile(list,2)'以可写方式打开
f.Write(str)'将字符串写入
f.Close'关闭文件

next

Set objws = WScript.CreateObject("wscript.shell")
WScript.Sleep 300
objws.run "tdxw.exe"

set fso=nothing
set objws=nothing

以上内容复制到txt文本文件，保存到通达信根目录下为  #tdxw.vbs  ，运行即可
之前个人的解决办法是打包文件夹成  #tdxw.exe  ，每次运行这个，但更新内容就没法接收，这次解决更为妥当
其实软件好坏只是图个眼睛爽，赚钱还是靠思维