新手上路帮忙看段代码!即可给分!

moshco 2003-10-15 02:49:36

Private Sub cmdfromas400_Click()
Set fst = CreateObject("Scripting.FileSystemObject")
Set a = fst.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close
End Sub

上面的代码老是报告说:编译错误,变量未定义.系统指向fst警告.
...全文
25 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
moshco 2003-10-15
  • 打赏
  • 举报
回复
多谢各位!
守城小轩 2003-10-15
  • 打赏
  • 举报
回复
你也可以将两个语句和为一句

dim fs as new filesystemobject

不要忘了先在vb工程引用 microsoft scripting runtime
online 2003-10-15
  • 打赏
  • 举报
回复
如果包含Option Explicit
请定义fst,a
Option Explicit

Private Sub command1_Click()
Dim fst
Dim a
Set fst = CreateObject("Scripting.FileSystemObject")
Set a = fst.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close
End Sub


否则
代码没有问题,直接可以执行,不需要引用
lwm1977 2003-10-15
  • 打赏
  • 举报
回复
先定义
再应用

书中将变量时,就这么说的
守城小轩 2003-10-15
  • 打赏
  • 举报
回复
set 是建立一个实力
在建立之前你必须先声明
moshco 2003-10-15
  • 打赏
  • 举报
回复
为什么我的必须得先加
dim fst,a

后才能使用呢?
golden24kcn 2003-10-15
  • 打赏
  • 举报
回复
你先试试在引用中是否有Scriptruntime如果有,用它直接来建立一个对象,如果还不可以使用,那么就是库文件丢失了!
Tenner 2003-10-15
  • 打赏
  • 举报
回复
上面代码里的 fst, a 都没有定义呀

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧