FolderItemVerb.DoIt 方法
在与谓词关联的 FolderItem 上执行谓词。
语法
FolderItemVerb.DoIt()
参数
此方法没有任何参数。
返回值
此方法不返回值。
示例
以下示例使用 DoIt 执行用户的 Program 文件夹响应的谓词集合中的第一个谓词。 显示 JScript、VBScript 和 Visual Basic 的正确用法。
Jscript:
<script language="JScript">
function fnFolderItemVerbDoItJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
var objVerbs;
objVerbs = objFolder.Self.Verbs();
if (objVerbs != null)
{
objVerbs.Item(0).DoIt();
}
}
}
</script>
VBScript:
<script language="VBScript">
function fnFolderItemVerbDoItVB()
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
dim objVerbs
set objVerbs = objFolder.Self.Verbs
if (not objVerbs is nothing) then
objVerbs.Item(0).DoIt
end if
set objVerbs = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderItemVerbDoItVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder2 Is Nothing) Then
Dim objVerbs As FolderItemVerbs
Set objVerbs = objFolder2.Self.Verbs
If (Not objVerbs Is Nothing) Then
objVerbs.Item(0).DoIt
End If
Set objVerbs = Nothing
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
要求
要求 | 值 |
---|---|
最低受支持的客户端 |
Windows 2000 专业版、Windows XP [仅限桌面应用] |
最低受支持的服务器 |
Windows 2000 Server [仅限桌面应用] |
标头 |
|
IDL |
|
DLL |
|