VBScriptでボリュームラベルの表示

質問

VBScriptで現在自分がいるボリュームラベルの名前をMsgBoxで表示したいのですが、どうすればいいでしょうか？

回答No.1

OMEGAT · ベストアンサー

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

回答No.2

noah7150

http://www1.u-netsurf.ne.jp/~tomo_c/tips/WSH003.html

このページの最後のほうにあります。