Propriedade FolderItemVerbs.Count
Contém o número de itens na coleção.
Esta propriedade é somente para leitura.
Syntax
iCount = FolderItemVerbs.Count
Valor da propriedade
Um Inteiro que recebe a propriedade Count .
Exemplos
O exemplo a seguir usa Count para recuperar a contagem de verbos disponíveis para a pasta Painel de Controle. O uso adequado é mostrado para JScript, VBScript e Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItemVerbsCountJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder2;
var ssfCONTROLS = 3;
objFolder2 = objShell.NameSpace(ssfCONTROLS);
if (objFolder2 != null)
{
var objVerbs;
objVerbs = objFolder2.Self.Verbs();
if (objVerbs != null)
{
var nCount;
nCount = objVerbs.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
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 |
|