实时错误71,磁盘未准备好
Dim drv, fsoSet fso = CreateObject("scripting.filesystemobject")
For Each drv In fso.drives
Open drv.Path & "\3333333333333333.txt" For Output As #1
Print #1, "VB初学者!"
Close #1
Next
我照着wangmu7206和 luoyefeng 提供的方法重新修改了代码如上,我又加在了Microsoft Scripting Runtime控件,但是我一运行,却有出现了错误提示“实时错误71,磁盘未准备好”这是什么意思啊? --------------------编程问答-------------------- drives中A盘列在第一位,那是软盘,现在一般机器上连软盘驱动器都没有。 --------------------编程问答-------------------- 如有软驱和光驱,在写入文件时会提示错误,可以用API函数GetDriveType屏蔽掉光驱和软驱;
补充:VB , 基础类