出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
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]
[1520] ASPじゃなくてVBなんですけど
投稿者：ザクレロさん 2002/01/26 11:22:39
ＶＢでＭＯドライブを認識する方法ってありますか？
[1521] Re:ASPじゃなくてVBなんですけど
投稿者：喜平さん 2002/01/26 13:10:36
> ＶＢでＭＯドライブを認識する方法ってありますか？
　MO drive かどうかではなく、リムーバブル ディスク
かどうかであれば、WSH (FileSystemObject)で可能です。
　Drive オブジェクトのDriveType プロパティを
参照してください。
[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に変えれば同じコードが使えるはず（未確認）です。
[1524] Re:ASPじゃなくてVBなんですけど
投稿者：ザクレロさん 2002/01/26 13:45:06
返答ありがとうございます。これからやってみます。
もう一つ聞きたいことがあるんですけど
ＭＯドライブにディスクが挿入(認識)されているかどうかというのは
どうしたらわかるのでしょうか？？
ＭＯドライブにアクセスした時にディスクが入っていない等の場合には
既存のエラーメッセージではなく、自分で定義したエラーメッセージ
を表示させたいんですけども。
[1525] Re:ASPじゃなくてVBなんですけど
投稿者：喜平さん 2002/01/26 14:35:30
> 返答ありがとうございます。これからやってみます。
> もう一つ聞きたいことがあるんですけど
> ＭＯドライブにディスクが挿入(認識)されているかどうかというのは
> どうしたらわかるのでしょうか？？
WSH (FileSystemObject)で可能です。
　Drive オブジェクトのIsReady プロパティ を参照してください

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