Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6602 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44434】ドライブがあるかどうかを調べる ゆう 06/11/16(木) 9:16 質問[未読]
【44435】Re:ドライブがあるかどうかを調べる Blue 06/11/16(木) 9:38 質問[未読]
【44436】Re:ドライブがあるかどうかを調べる ゆう 06/11/16(木) 9:54 質問[未読]
【44437】Re:ドライブがあるかどうかを調べる Blue 06/11/16(木) 10:07 回答[未読]
【44439】Re:ドライブがあるかどうかを調べる ゆう 06/11/16(木) 10:35 お礼[未読]
【44434】ドライブがあるかどうかを調べる
質問  ゆう  - 06/11/16(木) 9:16 -
引用なし
パスワード
   お世話になります。
すごく単純なことなのかも知れませんが、
混乱してきました。（初心者のため初めての言葉がいっぱいで。。。）

cドライブがあるかどうかを調べたいのですが、
DIRを使えばいいのでしょうか？

戻り値はfalseとかになるんでしょうか？

ご教授お願いします。
【44435】Re:ドライブがあるかどうかを調べる
質問  Blue  - 06/11/16(木) 9:38 -
引用なし
パスワード
   ▼ゆう さん：
>cドライブがあるかどうかを調べたいのですが、
>DIRを使えばいいのでしょうか？
>
>戻り値はfalseとかになるんでしょうか？
質問する前に、ヘルプを読んでみては？

ヘルプを読んでもわからない場合、
コードを書いてみて、どのような動作になるかを確かめてください。
その上で、疑問点が出れば、そのときに初めて掲示板を利用するようにしましょう。
【44436】Re:ドライブがあるかどうかを調べる
質問  ゆう  - 06/11/16(木) 9:54 -
引用なし
パスワード
   ▼Blue さん：

>ヘルプを読んでもわからない場合、
>コードを書いてみて、どのような動作になるかを確かめてください。
>その上で、疑問点が出れば、そのときに初めて掲示板を利用するようにしましょう。

すみません。あせってしまって、訳がわからない質問をしてしまったと
反省しています。

Dirを使って下記のように書いてみたのですが、これだと無いドライブは
空白で戻ってくるのですが、もしcドライブがcd-romの場合
（これはないと思うのですが、のちのちC以外の他のドライブも確認したいので）
エラーが出て止まってしまいます。

それでどうしたものかと相談しました。言葉足らずですみませんでした。

Sub main()
　Dim myDrive
　myDrive = Dir("c:\")
　MsgBox myDrive
End Sub
【44437】Re:ドライブがあるかどうかを調べる
回答  Blue  - 06/11/16(木) 10:07 -
引用なし
パスワード
   ・On Error GoTo(もしくはResume Next,Err.Number)でエラーをトラップする。

・FileSysteObjectを使う。

　　With CreateObject("Scripting.FileSystemObject")
　　　　' ドライブの存在を確認
　　　　If .DriveExists("C:\") Then
　　　　　　If .GetDrive("C:\").IsReady Then
　　　　　　　　MsgBox "OK"
　　　　　　End If
　　　　End If
　　End With

※CD-ROMかどうかを見たいのであれば、DriveオブジェクトのDriveTypeプロパティを使ってください。

　　If .GetDirve("C:\").DriveType = 4 Then
　　　　 MsgBox "CD-ROM"
　　End If
【44439】Re:ドライブがあるかどうかを調べる
お礼  ゆう  - 06/11/16(木) 10:35 -
引用なし
パスワード
   ▼Blue さん：

ご教授ありがとうございます。
今回は失礼な質問の仕方をしてしまい申し訳なく感じています。
なのに、回答いただいたことにとても感謝しています。
もう少し勉強して、的を得た質問をしたいと思います。
今回は、回答の件だけでなく、マナーの点でも勉強できたと思います。
ありがとうございました。
またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6602 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free