1

WNetAddConnection2を使用してネットワークドライブをWindowsにマウントしていますが、これは正常に機能していますが、ドライブをマウントしている間、デフォルトでサーバーIPとFolderNameとして名前が割り当てられます。

'NASサーバー（172.24.17.116）'（R:)上のNDSTestFolder

SetVolumeLabelを使用してドライブラベルの名前を変更する必要がありますが、 SetVolumeLabelがローカルドライブで正常に機能しているのに 、ネットワークドライブで無効なパラメータと表示されて失敗し ます。

ネットワークドライブの名前を変更したり、ラベルを変更したりする方法はありますか？私が変えることができるように

'NASサーバー（172.24.17.116）'（R:)上のNDSTestFolder

に

NDS @ MyFolder（R :)

4

3 に答える 3

3

スクリプトをC++に翻訳しました：

#include <shldisp.h>

void RenameDrive(BSTR strNewName, BSTR strDriveLetter)
{
   IShellDispatch* pShellDispatch = NULL;

   HRESULT hr = CoCreateInstance(CLSID_Shell,
                                 NULL,
                                 CLSCTX_INPROC_SERVER,
                                 IID_IShellDispatch,
                                 (void**)&pShellDispatch);
   if (SUCCEEDED(hr) && pShellDispatch)
   {
      Folder* pFolder = NULL;
      VARIANT vt = {};
      VariantInit(&vt);
      vt.vt = VT_BSTR;
      vt.bstrVal = strDriveLetter;
      hr = pShellDispatch->NameSpace(vt, &pFolder);
      VariantClear(&vt);
      if (SUCCEEDED(hr) && pFolder)
      {
         Folder2* pFolder2 = NULL;
         hr = pFolder->QueryInterface(IID_Folder2, (void**)&pFolder2);
         if (SUCCEEDED(hr) && pFolder2)
         {
            FolderItem* pFolderItem = NULL;
            hr = pFolder2->get_Self(&pFolderItem);
            if (SUCCEEDED(hr) && pFolderItem)
            {
               pFolderItem->put_Name(strNewName);
               pFolderItem->Release();
            }
            pFolder2->Release();
         }

         pFolder->Release();
      }

      pShellDispatch->Release();
   }
}
于 2010-12-27T10:49:34.147 に答える
1

このためのAPIがあるかどうかはわかりませんが、文字列はレジストリの次の場所に保存されています。

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ MountPoints2

そこでキーを解析して正しいサブキーを見つけ（おそらく「## 172.24.17.116＃NDSTestFolder」のようになります）、_LabelFromReg値を好きなように変更します...

于 2010-12-16T12:12:15.657 に答える
0

ドライブの名前を変更するためにvbスクリプトを使用してみました。

LPCTSTR szCode = "Function RenameDrive(strNewName,strDriveLetter) \r\n\
                     Dim objShell \r\n\
                     Set objShell = CreateObject(\"Shell.Application\") \r\n\
                     'if objShell is Not Nothing Then \r\n\
                     objShell.NameSpace(strDriveLetter).Self.Name = strNewName \r\n\
                     'End if \r\n\
                     End Function";
于 2010-12-27T09:23:32.383 に答える