悠悠博客 关注Ajax技术与web开发

DriveExists 方法
如果指定的驱动器存在，则返回 True；否则返回 False。

object.DriveExists(drivespec)

参数
object

必选项。应为 FileSystemObject 对象的名称。

drivespec

必选项。驱动器号或指定的完整路径。

说明
对于可移动媒体驱动器，即使驱动器中没有插入媒体，DriveExists 方法仍返回 True。用 Drive 对象的 IsReady 属性确定驱动器是否就绪。

下面例子举例说明如何使用 DriveExists 方法：

Function ReportDriveStatus(drv)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.DriveExists(drv) Then
msg = ("驱动器 " & UCase(drv) & " 存在。")
Else
msg = ("驱动器 " & UCase(drv) & " 不存在。")
End If
ReportDriveStatus = msg
End Function