掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ドライブ文字を取得するには？ (ID:140614)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
よろしくお願いします。 一番最後に振られているドライブ文字がＦであればメッセージボックスを 出すプログラムを作成したいです。Ｗｅｂ上よりサンプルコードを入手し あと一歩のところまで来ています。 Dim letter As String Set Locator = CreateObject("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer Set BtcSet = Service.ExecQuery("Select * From Win32_BootConfiguration") For Each Btc In BtcSet letter = Btc.LastDrive & vbCrLf & vbCrLf Next If letter = "F:" Then MsgBox "Ｆドライブが既に使用されています。" End If Set BtcSet = Nothing Set Btc = Nothing Set Service = Nothing Set Locator = Nothing これで実際に最終ドライブ文字がFの場合、letterにF:が取得できるのは確認しているのですが、 次のIf文で条件不一致となりメッセージボックスを出せません。このサンプルコードで 得られるドライブ文字というのは手入力した「F:」と違うのでしょうか。 不勉強の中でのご質問で申し訳ありませんが、ご教授いただけないでしょうか。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.