Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать


А что там смотреть:
Цитата artem_:
objNetwork.MapNetworkDrive Letter, Path
'переименовываем
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(Letter).Self.Name = DriveName »
Соответственно, дописываешь
Код: Выделить весь код
objNetwork.MapNetworkDrive Second_Letter, Second_Path
 objShell.NameSpace(New_Letter).Self.Name = New_DriveName

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)


Отправлено: 01:28, 03-07-2008 | #20