(编辑:jimmy 日期: 2024/12/23 浏览:2)
如果指定的驱动器存在,则返回 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