Свойство ShareName
Возвращает имя общей сетевой папки указанного диска.
Синтаксис
object. ShareName
Объект всегда является объектом Drive.
Замечания
Если объект не является сетевым диском, свойство ShareName возвращает строку нулевой длины ("").
В следующем коде показано использование свойства ShareName .
Sub ShowDriveInfo(drvpath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = "Drive " & d.DriveLetter & ": - " & d.ShareName
MsgBox s
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.