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 = msgEnd Function