fso.createtextfile()应该是TextStream型的,所以这段代码应该改为:
Dim fso As New FileSystemObject, txtfile As TextStream <-此处为修改之处
Set txtfile = fso.CreateTextFile("temp.txt", True)
txtfile.WriteLine ("hello,world")
txtfile.Close这样就可以了
Dim fso As New FileSystemObject, txtfile As TextStream <-此处为修改之处
Set txtfile = fso.CreateTextFile("temp.txt", True)
txtfile.WriteLine ("hello,world")
txtfile.Close这样就可以了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货