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 ist die ParseName-Methode nicht für den ordner Systemsteuerung (CSIDL _ CONTROLS) implementiert. Wenn Sie versuchen, eine nichtimplementierte Methode auf 0x800A01BD fehler (decimal 445) wird ausgelöst.
Beispiele
Im folgenden Beispiel wird title verwendet, um den Titel des Ordners abzurufen, der die Programmgruppen des Benutzers enthält (in der Regel "Programme"). Die richtige Verwendung wird für JScript, VBScript und 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
Requirements (Anforderungen)
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) |
Windows 2000 Professional nur Windows [ XP-Desktop-Apps] |
| Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
| Header |
|
| IDL |
|
| DLL |
|