Metode FolderItemVerb.DoIt
Menjalankan kata kerja pada FolderItem yang terkait dengan kata kerja.
Sintaks
FolderItemVerb.DoIt()
Parameter
Metode ini tidak memiliki parameter.
Menampilkan nilai
Metode ini tidak mengembalikan nilai.
Contoh
Contoh berikut menggunakan DoIt untuk menjalankan kata kerja pertama dalam kumpulan kata kerja tempat folder Program pengguna merespons. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan 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
Persyaratan
Persyaratan | Nilai |
---|---|
Klien minimum yang didukung |
Windows 2000 Professional, Windows XP [hanya aplikasi desktop] |
Server minimum yang didukung |
Windows 2000 Server [hanya aplikasi desktop] |
Header |
|
IDL |
|
DLL |
|
Saran dan Komentar
https://aka.ms/ContentUserFeedback.
Segera hadir: Sepanjang tahun 2024 kami akan menghentikan penggunaan GitHub Issues sebagai mekanisme umpan balik untuk konten dan menggantinya dengan sistem umpan balik baru. Untuk mengetahui informasi selengkapnya, lihat:Kirim dan lihat umpan balik untuk