■ ネットワークドライブのボリュームラベルを変更するには

[Visual Basic 初心者掲示板] [過去ログの一覧]


クッパ 2004/04/14(水) 20:06:52
ネットワークドライブのボリュームラベルが「コンピュター名\共有フォルダ名」になっているので、以下のVBSをつくりました。

dim Fs, Drive
Set Fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set Drive = Fs.GetDrive("Z")
Drive.VolumeName = "保存"

ローカルドライブを指定して実行してみると、ボリュームラベルが変更されますが、ネットワークドライブを指定すると「このディレクトリはルートディレクトリのサブディレクトリではありません。」とエラーメッセ維持が出ます。

なんとかスクリプトでネットワークドライブのボリュームラベルを変更したいと考えています。

よろしくお願いします。

魔界の仮面弁士 2004/04/14(水) 22:14:42
ネットワークドライブのボリュームラベルは変更できません。
(コマンドプロンプトからLABELコマンドを発行しても、拒否されます)

Win2000/XPのマイコンピュータ上では、ネットワークドライブに別名を与える事はできますが、ボリュームラベルが変更されるわけではありません。

とりあえず、マイコンピュータ上の見た目だけでも良いなら、以下のようにして変更できる可能性があります。

 Set X = Wscript.CreateObject("Shell.Application")
 Set D = X.NameSpace("Z:\")
 D.Items().Item.Name = "保存"

クッパ 2004/04/15(木) 09:09:30
[[解決]]

教えていただいたとおりのVBSでボリュームラベルを変更できました。
魔界の仮面弁士さんありがとうございました。

毎週金曜日はポイント最大3倍!さらに4倍のチャンスも!

Programming Library