DriveType
ドライブ種類取得
文法
Driveオブジェクト.DriveType
機能説明
ドライブの種類を定数で取得
ドライブ種類
| 定数 | 値 | 説明 |
|---|
| Unknown | 0 | 不明 |
| Removable | 1 | リムーバルディスク |
| Fixed | 2 | ハードディスク |
| Remote | 3 | ネットワークドライブ |
| CDROM | 4 | CD-ROMドライブ |
| RAMDisk | 5 | RAMドライブ |
使用例
<![CDATA[
<%
Dim objFs,objDrv
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objDrv = objFs.GetDrive("C")
Select Case objDrv.DriveType
Case Removable
Response.Write "リムーバルディスク<br>"
Case Fixed
Response.Write "ハードディスク<br>"
Case Remote
Response.Write "ネットワークドライブ<br>"
Case CDROM
Response.Write "CD-ROMドライブ<br>"
Case RAMDisk
Response.Write "RAMドライブ<br>"
Case Else
Response.Write "不明<br>"
End Select
'オブジェクトを開放
Set objDrv = Nothing
Set objFs = Nothing
%>
]]>
Topへ