自己参照网上的帖子写了一段程序，没有报错，但是要写入的txt文档中没有找到我要写入的字符串，大家帮忙看一下哪块出问题了？
Sub OnClick(ByVal Item)
Const ForReading=1,ForWriting=2
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("c:\wincclog.txt",ForWriting,True)
f.Write"hello"
Set f=fso.OpenTextFile("c:\wincclog.txt",ForReading)
ReadAllTextFile=f.ReadAll
End Sub
最佳答案
dim a
set a=createobject(wscript.shell)
a.run"notepad"
wscript.sleep 1000
a.appactivate"无标题－记事本"
a.sendkeys"你想输入的话"
提问者对于答案的评价：
谢谢您的回答.我的问题解决了,不过还是用我自己的程序,由于原来的程序是直接从网站拷到脚本窗口上的,我只是把关键的部分自己重写了一遍就好用了,不知道到底问什么
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc269294.html
微信扫一扫 
支付宝扫一扫 