ベストアンサー VBScriptでボリュームラベルの表示 2009/06/03 14:00 VBScriptで現在自分がいるボリュームラベルの名前をMsgBoxで表示したいのですが、どうすればいいでしょうか？ みんなの回答 （2） 専門家の回答 質問者が選んだベストアンサー ベストアンサー OMEGAT ベストアンサー率70% (455/642) 2009/06/03 14:14 回答No.1 1行で書いてしまえば以下のような感じでしょうか。 MsgBox Wscript.CreateObject("Scripting.FileSystemObject").GetFolder(".").Drive.VolumeName もう少し分割すると、 Dim Fs, Drive Set Fs = Wscript.CreateObject("Scripting.FileSystemObject") Set Drive = Fs.GetFolder(".").Drive MsgBox Drive.VolumeName 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) noah7150 ベストアンサー率46% (116/251) 2009/06/03 14:15 回答No.2 http://www1.u-netsurf.ne.jp/~tomo_c/tips/WSH003.html このページの最後のほうにあります。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Visual Basic 関連するQ&A ボリュームラベルとは win98の再インストールしてます。 基本ＭＳ－ＤＯＳ領域を削除 領域 ・ ・ ボリュームラベル Mバイト Ｃ：１ ・ ・ （何も表示されてない）8025 注意・・・・ どの基本領域を削除しますか？［１］ ボリュームラベルを入力してください［ ］ よろしいですか（N/Y) ［Ｎ］ と画面がでますがボリュームラベルがわかりません。 すいません。てきとうに入れても違うと出ますし。 ボリュームラベル win98SEですが、いろいろな資料を見て再インストしなおしたのですが、fdiskで基本MS-DOS領域を削除するときに、入れた覚えのないボリュームラベルが入っており、入力しても「ボリュームラベルが一致しません」となります。どうしたら削除できるでしょうか？表示は「領域C:1」「状態A」「種類PRI DOS」「ボリュームラベル0 HKR,Nd」「Mバイト1506」「システムFAT32」「使用24%」補足事項あれば追記します。お願いします。 DVDのボリュームラベル WindowsXPはデフォルトでDVDのボリュームラベルは表示されますか？ 現在そのままでは表示されません。DVD-Videoのディスクを入れたら表示させるようにする設定の方法を教えてください。 ネットワークエンジニアとは？技術職の未来を考える OKWAVE コラム フルパス中のボリュームラベルの非表示 WindowsXPでDドライブのルートを共有してボリュームラベルをdrive_dとすると、他のコンピュータからアクセスしたときのフルパスが「\\(コンピュータ名)\drive_d (d)\・・・・」となってしまいます。共有元PCのボリュームラベルを変更せずに、ドライブレター表示「\\(コンピュータ名)\d\・・・・」にすることは可能でしょうか？ VBScriptでカレントディレクトリの表示 VBscriptで自分が今いるカレントディレクトリを変数に代入するにはどうすればいいでしょうか。 VBScriptはG:\にあり（USB上）、そこから起動しています。 Dim driveNameと定義して、driveNameにG:\を代入したいんです。 あとで、msgboxでそれを表示するつもりです。 ボリュームラベルとは？ ボリュームラベルって何ですか？ 教えてください ボリュームラベルに漢字が！！！ win98ですが外付けHDDをインストールしてその後winが起動しないので、リカバリをする前にC,DドライブになっていたHDの領域を変更しようと思ったのですが。 fdiskで基本MS-DOS領域を削除するときに、入れた覚えのないボリュームラベルが入っており、入力しても「ボリュームラベルが一致しません」となります。どうしたら削除できるでしょうか？表示は「ボリュームラベル→↓貢=降YQ」です。お願いします。 以前の質問にもあったのですが、漢字は無限ループになるそうで・・・ ボリュームラベルって何? Windows MeからXPへのアップグレード組です。 今、HDDのシステムをFAT32からNTFSに変更中です。 内蔵のCドライブは出来ましたが、外付けのFドライブでつまずいて しまいました。 コマンドプロンプトで、CONVERT F:/fs:ntfsと入力すると、 「ファイルシステムの種類はFAT32です。 ドライブ F:の現在のボリュームラベルを入力して ください。」 と指示されます。 この「ボリュームラベル」って何ですか? MSNのQ＆Aやヘルプ＆サポートにも、そのものの意味が 載っていません。 外付けHDDは120GB、BUFFALO/HD-120U2です。 非常に困っているので、なるべく判りやすい説明を頂けると 助かります。 よろしくおねがいします。 ディスクチェックで、ボリューム ラベルが文字化け 本日パソコンメンテナンスとして、C:ドライブのディスクチェックを行ったところ、ボリュームラベルがアクセント記号つきの半角英字や半角カッコなど判読不能の文字で表示されているのに気づきました。そこでコマンドプロンプト"vol"でボリューム ラベルを調べたところ、「ドライブCのボリューム ラベルは ボリューム です。ボリューム シリアル番号は .........です。」と表示されました。たぶんボリューム ラベルが全角カタカナで"ボリューム ラベル"となっているため、ディスクチェックでの表示がおかしくなったのではないかと思うのですが、このままにしておいてよろしいでしょうか。 なお、シリアル番号は数字と英字による半角4文字のあとハイフォンにつながれた4文字の半角数字となっております。 起動は問題なくできます。 ボリュームラベルが変わってしまいました こんにちはよろしくお願いします WinXPのノートPCで外付けHDDをUSBで接続し ボリュームラベルをiにしてローカルディスクiとして使用しています 先日USBメモリを購入して早速差し込んだところこれがリムーバブルディスクGと認識され用が終わったあとUSBメモリを抜いて外付けHDDを差し込んだところ外付けHDDのボリュームラベルが変わってローカルディスクiからローカルディスクGと変わってしまいました ボリュームラベルiからGに変わってしまったため一部の外付けHDDにインストールしたソフトが動作しなくなってしまい困っています コンピュータの管理からディスク管理に入りドライブ文字とパスの変更 を使うのはわかっているのですがGを選び変更しようとしても Gの次の文字がJとなっておりなぜかiが候補にありません Gとなってしまったこの外付けHDDを再びiにするにはどうすればいいのでしょうか？ どなたかお力をお貸しください VBScriptのMsgBoxについて【title変更】 VBScriptのMsgBoxで３つめの引数であるtitleを変更したいのですが、表示させたいタイトルの前にどうしても"VBScript:"という文字がタイトルに出てきます。 これを表示させない方法があれば。教えてください。 よろしくお願いします。 HDDのボリュームラベルと型番の対応情報 複数の内蔵ディスクを入れていたのですが、どのボリュームラベルのHDDがどの型番（どこ社製）のHDDなのか分からなくなってしまいました。 マイコンピュータからHDDのプロパティからドライバ一覧を見ても、現在選択中のHDDとは無関係にフォーカスされた状態で表示されるので、どのボリュームラベルのHDDがどの会社のHDDなのかさっぱり分かりません。 こういった基本的な情報がパッと分からない作りに今更気付いて唖然としている状況です。 どなたかHDDのボリュームラベルと型番（ハードウェア）の対応を知るにはどうすればいいのか教えてください。 AIは使う人の年齢や市場にも影響する？人工知能の可能性 OKWAVE コラム VBScriptで困ってます(>_<) VBScriptを使って、クイズ的なものを作成しているのですが、 打ち込んだクイズをランダムに表示させられないかと考えました ですが、どのような文字列を打ち込んだら良いか分かりません… 一応、こんな感じで作成しています。 moji = inputbox("クイズの内容","タイトル") if (moji = "ここには正解を") then msgbox("当たっていた場合の表示") else msgbox(moji = "外れていた場合の表示") end if 以下二問目～ という風に作成しています どこにどのようにどのような文字列を打ち込めばよいか(ToT)/~~~ どなたか知恵をお貸しください… VBScriptで特別な意味を持つ記号を使う方法 VBScriptで簡単なツールをつくっているのですが、「"」のような特殊な働きを持つ文字を文字列として使用するにはどうすればいいでしょうか？ 例えば、MsgBoxなどで、「"ファイル名"があります」という表示をさせたい場合、 MsgBox ""ファイル名"があります" という使い方はできません。 Perlなどでは「'」でくくるなどの方法がありますが、VBScriptでも何か対処する方法はありませんでしょうか？ よろしくお願いいたします。 DVD Flick で ボリュームラベルを設定するには？ DVD Flick を使って、動画をDVDに焼いています。 DVDをマイコンピュータで見たときに、ボリュームラベルが表示されるようにしたいのですが、 どのように設定すればいいのでしょうか？ よろしくお願いします。 ＶＢＳｃｒｉｐｔの書き方 メンテナンス画面から登録ボタンを実行して、 入力内容にエラーがあったら、 エラーメッセージを表示して、 登録画面をもう一度表示する。 といった処理にしたいのですが、 エラーメッセージをVBScriptで表示すると、 メッセージが、どうしても２回表示されてしまいます。 例） <% If xx then %> <script language=VBScript> <!-- MsgBox("aaa") //--> </script> <% End If %> : : : <html> : : </html> <html>タグの前に<script>タグを書くとsubmitされるのでしょうか？ 結局、html中のjavaScriptに書き込んで、<body>のonloadでメッセージを 表示する処理に直したのですが、腑に落ちないので… ご存知の方、教えてください。 ちなみに環境はNT4.0、IE5.5です。 【VBScriptについて】VBScriptでアスタリスクは使えるのでしょうか 質問させてください。 VBScriptを使用してフォルダ（file2）があるかどうか確認したいと思っております。 しかし上位のフォルダが何か分からず、又、上位フォルダが何階層になっているかも 分かりません。 その場合、アスタリスクを使用したりなど 何か方法はあるのでしょうか（それともVBScriptで実装することは無理なのでしょうか） 以上について知っていらっしゃる方いらっしゃいましたら 教えていただけないでしょうか。 大変お手数をお掛けいたしますが宜しくお願い致します。 【作成したスクリプト】（Xの部分が分かりません） ---------------------------------------------------------------------------- : 'フォルダがあるかどうか確認 If (fso.FolderExists("x:\xxx\file2")) Then MsgBox "フォルダがあります" Else MsgBox "フォルダがありません" End If ------------------------------------------------------------------------ VBScriptでMsgBoxのYesNoボックスを自動的にクリックしたい VBScriptであるボタンをクリックして表示された、MsgBoxの表示されたYes Noボックスを自動的にクリックしたいと考えています。 下記のように、VBScriptでボタンやコンボボックスを選んだりクリックした後にMsgBoxで”はい”、”いいえ”が表示されて、その表示されたMsgBoxで”はい”をクリックしたいのですが、コマンドが分からず困っています。 IEオブジェクト.Document.フォーム名.コンボボックス名.selectedIndex = 0からの番号 外付けSSDのボリュームラベルが変わってしまい、中 USB外付けSSDを差し替えたら、ボリュームラベルが差し替える前のssdのボリュームラベルに変わってしまい、中身が消えてしまいました。 OSはWindows11です。 どなたか原因と対策を教えてください。 Windows7 ボリュームラベル PCにWindows7をクリーンインストールしましたところ、 ボリュームラベルがCではなくIになってしまいました。 どうにかCドライブにもどしたいのですが・・・ どのようにしたらよろしいでしょうか？ また、そのIドライブの使用領域が増えています。 特にソフトのインストール等はしていないのですが・・・ よろしくお願いします。 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他（プログラミング・開発） カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
