DriveExists 方法 |
|
DriveExists 方法语法有以下部分:
部分 | 描述 |
object | 必选。应为 FileSystemObject 对象的名称。 |
drivespec | 必选。驱动器号或指定的完整路径。 |
下面例子举例说明如何使用 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