Серый форум — HTA: Виртуальный жесткий диск

Re: HTA: Виртуальный жесткий диск

null@example.com (alexii) — Fri, 06 May 2011 08:21:27 +0000

2Xameleon: нет, не пробовал. Я полагал, что, коль DefaultLabel из DriveIcons отрабатывает сразу после обновления окна Проводника (по F5), то и иконка должна была бы тоже сразу отработать.

Попробую вечером с перезагрузкой.

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Fri, 06 May 2011 08:18:45 +0000

2 Rumata: Вот он корень зла - ЛЕНЬ ! Она же двигатель прогресса (иногда).

Re: HTA: Виртуальный жесткий диск

null@example.com (Rumata) — Fri, 06 May 2011 07:13:53 +0000

Xameleon, я только F5 нажимал, рассчитывая что сработает и так. Мысль о перезагрузке была, но было лень ради этого )))

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Fri, 06 May 2011 06:59:13 +0000

2 Rumata & Ottiwell_Wood & alexii: Возможно глупый или странный вопрос, но... - перезагружаться после этого пробывали ? Или перезапускать explorer сам ?

Re: HTA: Виртуальный жесткий диск

null@example.com (Rumata) — Fri, 06 May 2011 06:50:31 +0000

alexii пишет:

... LABEL для SUBST-диска задаётся, Custom Icon — у меня не сработало.
...
P.S. Windows XP SP3.

Windows Vista Enterprise SP3. Все с точностью до наоборот. иконка диска меняется, метка - нет.
Windows XP Professional SP3. Не устанавливается ни то ни другое.

Re: HTA: Виртуальный жесткий диск

null@example.com (Ottiwell_Wood) — Fri, 06 May 2011 05:28:03 +0000

Вот я о том же. Программа должна быть кроссплатформенной.

Re: HTA: Виртуальный жесткий диск

null@example.com (alexii) — Fri, 06 May 2011 00:50:20 +0000

Xameleon, спасибо.

Но у меня не всё получилось, в частности, с Custom Icon:
How to Assign a Custom Icon and Label to a Drive Letter (Windows)
LABEL для SUBST-диска задаётся, Custom Icon — у меня не сработало.
How to Customize Folders with Desktop.ini (Windows)
Custom Icon для папки — применяется, на SUBST-диск это изменение не отображается.

P.S. Windows XP SP3.

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Thu, 05 May 2011 19:45:04 +0000

Проверил. На моей Win 7 x64 работает.

Диск X: смонтирован к диску C:\ через subst

Более подробная инструкция.
http://www.liutilities.com/products/reg … aks/11101/

Скриншот в доказательство.

Re: HTA: Виртуальный жесткий диск

null@example.com (Ottiwell_Wood) — Thu, 05 May 2011 17:08:10 +0000

Такой вариант тоже не работает. А существуют ли аналоги subst?

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Thu, 05 May 2011 13:13:47 +0000

Ottiwell_Wood пишет:

Видимо никто не читает первый пост.

Видимо кому то упорно лень поискать ответы в глобальной сети интернет и этот кто то надеется, что за него всё решат другие .

http://otvety.google.ru/otvety/thread?t … 465ab635c3

Re: HTA: Виртуальный жесткий диск

null@example.com (Ottiwell_Wood) — Thu, 05 May 2011 13:06:34 +0000

Видимо никто не читает первый пост.

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Thu, 05 May 2011 12:51:45 +0000

Виноват. Не сразу дошёл смысл вопроса. Видать усталость на работе сказывается. Скорее всего иконку и название поменять нельзя.

Re: HTA: Виртуальный жесткий диск

null@example.com (alexii) — Thu, 05 May 2011 12:22:20 +0000

Ottiwell_Wood, лично мне этого не удавалось добиться.

Re: HTA: Виртуальный жесткий диск

null@example.com (Ottiwell_Wood) — Thu, 05 May 2011 09:46:59 +0000

По моему здесь речь идёт о сетевом диске. Но ведь вопрос идёт о локальном

Re: HTA: Виртуальный жесткий диск

null@example.com (Xameleon) — Thu, 05 May 2011 08:48:16 +0000

Я думаю Вам помогут методы

EnumNetworkDrives
MapNetworkDrive
RemoveNetworkDrive

объекта WshNetwork

Справочная информация:
http://msdn.microsoft.com/en-us/library … s.85).aspx
http://msdn.microsoft.com/en-us/library … s.85).aspx
http://msdn.microsoft.com/en-us/library … s.85).aspx

Option Explicit
Dim WshNetwork, NetworkDrives
Set WshNetwork = CreateObject("Wscript.Network")
Set NetworkDrives = WshNetwork.EnumNetworkDrives
WshNetwork.RemoveNetworkDrive "X:", True
WshNetwork.MapNetworkDrive "X:", "\\server\path\"
MsgBox "Disk mapped",vbInformation