Méthode FolderItems3.Filter
Définit un filtre générique à appliquer aux éléments retournés.
iRetVal = FolderItems3.Filter(
grfFlags,
bstrFilter
)
-
grfFlags [in]
-
Type : Entier
Ce paramètre peut être l’un des indicateurs répertoriés dans SHCONTF.
-
bstrFilter [in]
-
Type : BSTR
Chaîne de filtre qui spécifie ce qui doit être répertorié dans la collection FolderItems .
L’exemple suivant montre l’utilisation appropriée de Filter pour JScript, VBScript et Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItems3FilterJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfWINDOWS = 36;
objFolder = objShell.NameSpace(ssfWINDOWS);
if (objFolder != null)
{
var objFolderItems3;
objFolderItems3 = objFolder.Items();
if (objFolderItems3 != null)
{
var SHCONTF_NONFOLDERS = 64;
alert(objFolderItems3.Count);
objFolderItems3.Filter(SHCONTF_NONFOLDERS, "*.txt");
alert(objFolderItems3.Count);
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItems3FilterVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfDRIVES
ssfWINDOWS = 36
set objFolder = objShell.NameSpace(ssfWINDOWS)
if (not objFolder is nothing) then
dim objFolderItems3
set objFolderItems3 = objFolder.Items()
if (not objFolderItems3 is nothing) then
dim SHCONTF_NONFOLDERS
SHCONTF_NONFOLDERS = 64
alert(objFolderItems3.Count)
objFolderItems3.Filter SHCONTF_NONFOLDERS, "*.txt"
alert(objFolderItems3.Count)
end if
set objFolderItems3 = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic :
Private Sub fnFolderItems3FilterVB()
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 objFolderItems3 As FolderItems3
Set objFolderItems3 = objFolder.Items
If (Not objFolderItems3 Is Nothing) Then
Dim SHCONTF_NONFOLDERS As Long
SHCONTF_NONFOLDERS = 64
Debug.Print objFolderItems3.Count
objFolderItems3.Filter SHCONTF_NONFOLDERS, "*.exe"
Debug.Print objFolderItems3.Count
End If
Set objFolderItems3 = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows 2000 Professionnel [applications de bureau uniquement] |
Serveur minimal pris en charge |
Windows 2000 Server [applications de bureau uniquement] |
En-tête |
|
IDL |
|
DLL |
|