Folder.Title-Eigenschaft
Enthält den Titel des Ordners.
Diese Eigenschaft ist schreibgeschützt.
Syntax
strTitle = Folder.Title
Eigenschaftswert
Eine Zeichenfolge, die den Titel des Objekts enthält.
Bemerkungen
Hinweis
Nicht alle Methoden werden für alle Ordner implementiert. Beispielsweise wird die ParseName-Methode nicht für den ordner Systemsteuerung (CSIDL_CONTROLS) implementiert. Wenn Sie versuchen, eine nicht implementierte Methode aufzurufen, wird ein 0x800A01BD -Fehler (dezimal 445) ausgelöst.
Beispiele
Im folgenden Beispiel wird Title verwendet, um den Titel des Ordners abzurufen, der die Programmgruppen des Benutzers enthält (normalerweise "Programme"). Die ordnungsgemäße Verwendung wird für JScript, VBScript und Visual Basic angezeigt.
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
Anforderungen
Anforderung | Wert |
---|---|
Unterstützte Mindestversion (Client) |
Windows 2000 Professional, Windows XP [nur Desktop-Apps] |
Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
Header |
|
IDL |
|
DLL |
|