Metode FolderItems.Item
Mengambil objek FolderItem untuk item tertentu dalam koleksi.
Sintaks
FolderItems.Item(
[ iIndex ]
)
Parameter
-
iIndex [in, opsional]
-
Jenis: Varian
Indeks berbasis nol dari item yang akan diambil. Nilai ini harus kurang dari nilai properti Hitung .
Menampilkan nilai
Referensi objek ke objek FolderItem .
Contoh
Contoh berikut menggunakan Item untuk mengambil objek FolderItem yang mewakili file Notepad.exe yang ditemukan di folder Windows. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItemsItemJ()
{
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 objFolderItem;
objFolderItem = objFolderItems.Item(objFolderItems.Count - 1);
alert(objFolderItem.Name);
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItemsItemVB()
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 objFolderItem
set objFolderItem = objFolderItems.Item
if (not objFolderItem is nothing) then
alert(objFolderItem.Name)
end if
set objFolderItem = nothing
end if
set objFolderItems = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderItemsItemVB()
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 objFolderItem As FolderItem
Set objFolderItem = objFolderItems.Item("NOTEPAD.EXE")
If (Not objFolderItem Is Nothing) Then
Debug.Print objFolderItem.Path
End If
Set objFolderItem = Nothing
End If
Set objFolderItems = Nothing
End If
Set objFolder = 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 |
|
Lihat juga
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