Propriedade Folder.Title
Contém o título da pasta.
Esta propriedade é somente para leitura.
Syntax
strTitle = Folder.Title
Valor da propriedade
Uma cadeia de caracteres que contém o título do objeto.
Comentários
Observação
Nem todos os métodos são implementados para todas as pastas. Por exemplo, o método ParseName não é implementado para a pasta Painel de Controle (CSIDL_CONTROLS). Se você tentar chamar um método não implementado, um erro de 0x800A01BD (decimal 445) será gerado.
Exemplos
O exemplo a seguir usa Title para recuperar o título da pasta que contém os grupos de programas do usuário (geralmente "Programas"). O uso adequado é mostrado para JScript, VBScript e 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
Requisitos
Requisito | Valor |
---|---|
Cliente mínimo com suporte |
Windows 2000 Professional, Windows XP [somente aplicativos da área de trabalho] |
Servidor mínimo com suporte |
Windows 2000 Server [somente aplicativos da área de trabalho] |
Cabeçalho |
|
IDL |
|
DLL |
|