FolderItems.Count-Eigenschaft
Enthält die Anzahl der Elemente in der Auflistung.
Diese Eigenschaft ist schreibgeschützt.
Syntax
iCount = FolderItems.Count
Eigenschaftswert
Eine Ganze Zahl , die einen Wert für die Count-Eigenschaft enthält.
Beispiele
Im folgenden Beispiel wird Count verwendet, um die Anzahl der Elemente im Windows-Ordner abzurufen. Die ordnungsgemäße Verwendung wird für JScript, VBScript und Visual Basic angezeigt.
Jscript:
<script language="JScript">
function fnFolderItemsCountJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfWINDOWS = 36;
objFolder = objShell.NameSpace(ssfWINDOWS);
if (objFolder != null)
{
var objFolderItems;
objFolderItems = objFolder.Items();
if (objFolderItems != null)
{
var nCount;
nCount = objFolderItems.Count;
alert(nCount);
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItemsCountVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfWINDOWS
ssfWINDOWS = 36
set objFolder = objShell.NameSpace(ssfWINDOWS)
if (not objFolder is nothing) then
dim objFolderItems
set objFolderItems = objFolder.Items()
if (not objFolderItems is nothing) then
dim nCount
nCount = objFolderItems.Count
alert(nCount)
end if
set objFolderItems = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderItemsCountVB()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfWINDOWS As Long
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfWINDOWS)
If (Not objFolder Is Nothing) Then
Dim objFolderItems As FolderItems
Set objFolderItems = objFolder.Items
If (Not objFolderItems Is Nothing) Then
Dim nCount As Integer
nCount = objFolderItems.Count
Debug.Print nCount
End If
Set objFolderItems = Nothing
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 |
|