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警告.
...全文
268打赏收藏
新手上路帮忙看段代码!即可给分!
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警告.
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