Folder.Title, proprietà
Contiene il titolo della cartella.
Questa proprietà è di sola lettura.
Sintassi
strTitle = Folder.Title
Valore proprietà
Stringa contenente il titolo dell'oggetto.
Commenti
Nota
Non tutti i metodi vengono implementati per tutte le cartelle. Ad esempio, il metodo ParseName non viene implementato per la cartella Pannello di controllo (CSIDL_CONTROLS). Se si tenta di chiamare un metodo non implementato, viene generato un errore di 0x800A01BD (decimale 445).
Esempio
Nell'esempio seguente viene usato Title per recuperare il titolo della cartella che contiene i gruppi di programmi dell'utente (in genere "Programmi"). L'utilizzo appropriato viene visualizzato per 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
Requisiti
Requisito | Valore |
---|---|
Client minimo supportato |
Windows 2000 Professional, Windows XP [solo app desktop] |
Server minimo supportato |
Windows 2000 Server [solo app desktop] |
Intestazione |
|
IDL |
|
DLL |
|