出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1522] Re:ASPじゃなくてVBなんですけど
投稿者：北岳さん 2002/01/26 13:37:54
MOとまでは判らないと思います。
少なくとも次のコードでは、書いていない以上、絶対に（笑）判りません。
手元にMOはないですが、Removalが得られると思います。

---------VB5---------------
Option Explicit
Private Sub Command1_Click()
Dim x As Object, fs As Object
Dim p As Integer, typ As String
Set fs = CreateObject("Scripting.FileSystemObject")
For Each x In fs.Drives
MsgBox x
p = x.DriveType
Select Case p
Case 0
typ = "Unknown"
Case 1
typ = "Removal"
Case 2
typ = "Fixed"
Case 3
typ = "Remote"
Case 4
typ = "CDROM"
Case 5
typ = "RAMDisk"
End Select
MsgBox typ
Next
End Sub
-------------------

DriveTypeの中身は「今日から使えるASP3.0サンプル集」p.312 から転写。
ASPからは、CreateObjectの前にServer.を付け、
MsgBoxをresponse.writeに変えれば同じコードが使えるはず（未確認）です。
ASPじゃなくてVBなんですけど 　 ザクレロさん [2002/01/26 11:22:39] [1520]
　 Re:ASPじゃなくてVBなんですけど 　 喜平さん [2002/01/26 13:10:36] [1521]
　 Re:ASPじゃなくてVBなんですけど 　 北岳さん [2002/01/26 13:37:54] [1522]
　 　 Re:ASPじゃなくてVBなんですけど 　 ザクレロさん [2002/01/26 13:45:06] [1524]
　 　 　 Re:ASPじゃなくてVBなんですけど 　 喜平さん [2002/01/26 14:35:30] [1525]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ