[求助] 为什么同样的代码在不同窗体就不能用了呢?
怪事年年有今年特别多.同样一段代码,复制到另外一个按钮里就死活不能用.
目标: text3.text的内容写入C:\DT1000\marc.bat中
text4.text的内容写入C:\DT1000\marcpro.cfg中
本来下面这段代码我以前在另外一个程序里用过,所以就复制过来使用
甚至连窗体的布局都一样的.可是就是提示错误.最可恨的是在原来的程序里它不提示错误,也可以实现上述功能.
请高手帮忙看下.
Dim fs, f0, f1, f
Set f0 = CreateObject("Scripting.FileSystemObject")
Set f1 = f0.OpenTextFile("c:\dt1000\marc.bat", ForWriting, True, TristateUseDefault)
f1.Write (Text3.Text)
f1.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\DT1000\marcpro.cfg", ForWriting, True, TristateUseDefault)
Text4.Text = "CLT"
f.Write (Text4.Text)
f.Close
Shell "c:\dt1000\marc.bat", vbMinimizedNoFocus
