ネットワークドライブの名前を変更したい

解決

ふみちゃん 2008-02-08 09:51:01 No: 29729

ネットワーク等のドライブをＺ：等に割り当て共有で使うとき
ドライブ名称が○○、、、、○（Ｚ：）等長い名前になると
ソフト上からファイルを開くとき肝心の（Ｚ：）部が見えなくなり
どのドライブを選定しているかわからなくなります。
例えば「○○、、、、○（Ｚ：）」を「共有Ｚ：」のように短い名前に
Delphi上で変更したいのですが、、。過去ログ調べて色々やったのですが
うまくいきません、、どなたかご教授下さい！

DEKO 2008-02-08 12:40:36 No: 29730

[ネットワークドライブのボリュームラベルを変更するには]
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200404/04040057.txt
をDelphiで書いてみました。

uses
...ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  X,D: Variant;
begin
  X := CreateOleObject('Shell.Application');
  D := X.NameSpace('Z:\');
  D.Items.Item.Name := '共有';
end;

ふみちゃん 2008-02-08 17:35:18 No: 29731

できました！
こ、こんなに簡単だったんですね！！
本当に、ありがとうございました。