实时错误71，磁盘未准备好

Question

Dim drv, fso 
Set 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，磁盘未准备好”这是什么意思啊？

Answer 1

drives中A盘列在第一位，那是软盘，现在一般机器上连软盘驱动器都没有。

Answer 2

如有软驱和光驱,在写入文件时会提示错误,可以用API函数GetDriveType屏蔽掉光驱和软驱;