Свойство Folder.Title
Содержит заголовок папки.
Это свойство доступно только для чтения.
Синтаксис
strTitle = Folder.Title
Значение свойства
Строка, содержащая заголовок объекта.
Комментарии
Примечание
Не все методы реализуются для всех папок. Например, метод ParseName не реализован для папки панель управления (CSIDL_CONTROLS). При попытке вызвать нереализованный метод возникает ошибка 0x800A01BD (десятичное число 445).
Примеры
В следующем примере используется title для получения заголовка папки, включаемой группы программ пользователя (обычно "Программы"). Для JScript, VBScript и Visual Basic отображается правильное использование.
Jscript:
<script language="JScript">
function fnFolderTitleJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
alert(objFolder.Title);
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderTitleVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objFolder = objShell.NameSpace(ssfPROGRAMS)
if (not objFolder is nothing) then
alert(objFolder.Title)
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderTitleVB()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder Is Nothing) Then
Debug.Print objFolder.Title
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Требования
Требование | Значение |
---|---|
Минимальная версия клиента |
Windows 2000 Professional, Windows XP [только классические приложения] |
Минимальная версия сервера |
Windows 2000 Server [только классические приложения] |
Заголовок |
|
IDL |
|
DLL |
|