有兴趣的进来看一下!关于filesystemobject

Question

Private Sub Command1_Click()
Dim fso
Dim myfile
On Error GoTo flf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myfile = fso.CreateTextFile("d:\mima.txt", True)
    myfile.WriteLine (Text1.Text)
    myfile.Close
    MsgBox "保存成功！", vbInformation, "提示"
    Exit Sub
flf:
    Resume Next
End Sub
这一段代码有问题吗?为什么我运行总是通不过!设了段点后运行发现它根本没有在D盘创建文件!

Answer 1

你可能没有引用Microsoft Scripting Runtime这个运行库。

Answer 2

我看了运行过程也有问题!可是对FileSystemObject一直没有很了解!这两天也是为了这个事烦着呢!!

Answer 3

这个代码不用引用
myfile.WriteLine (Text1.Text) 这一句把括号去掉，保留空格。
调试时把On Error GoTo flf注释掉你就能看到错误提示了。

Answer 4

把on error goto flf关掉之后,出现了ActiveX 部件不能创建对象这个错误!

Answer 5

点调试看看在那一个语句出错的？怀疑你的系统没有安装Scripting。到引用里看看有没有"Microsoft Scripting Runtime"这个类型库？有的机器为了防脚本病毒会把它禁用掉。

Answer 6

程序都还没有基本被调试好，就使用goto，这样你的程序是很完善，永远不错，可是也得不到你的预期效果！   Private Sub Command1_Click()
Dim fso
Dim myfile
On Error GoTo flf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myfile = fso.CreateTextFile("d:\mima.txt", True)
    myfile.WriteLine (Text1.Text)
    myfile.Close
    MsgBox "保存成功！", vbInformation, "提示"
    Exit Sub
flf:
    Resume Next
End Sub
Microsoft Scripting Runtime 你把这个文件加上就没有任何问题了，代码也不用更改！！
  以后记得只要使用fso就要引用这个文件

Answer 7

搂主的代码没有错，也不可笑，MSDN中的标准代码如下：
FileSystemObject 对象 的 CreateTextFile 方法示例
Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine("This is a test.")
    a.Close
End Sub
FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中。如果还没有引用此文件，请从“属性”菜单的“引用”对话框选择“Microsoft Scripting Runtime”项。然后就可以使用“对象浏览器”来查看其对象、集合、属性、方法、事件以及它的常数。楼主仔细看MSDN好了