关于文件的一段代码

Question

Dim filename As String   '从用户所选文件名中得到filename="c:\1.txt"Dim mFileSysObj As FileSystemObject
Dim mFile As File
Dim mTxtStream As TextStreamSet mFile = mFileSysObj.GetFile(filename)       'filename的值见上面说明
Set mTxtStream = mFile.OpenAsTextStream(ForReading)为什么在执行到第5句就出现object variable or With block variable not set呢?

Answer 1

Dim mFileSysObj As new FileSystemObject'要实例化定义,就加个NEW

Answer 2

Dim filename As String   '从用户所选文件名中得到filename="c:\1.txt"Dim mFileSysObj As FileSystemObject
Dim mFile As File
Dim mTxtStream As TextStreamSet mFileSysObj = CreateObject("Scripting.FileSystemObject")Set mFile = mFileSysObj.GetFile(filename)       'filename的值见上面说明
Set mTxtStream = mFile.OpenAsTextStream(ForReading)