IFolderCollection.Item Property

[José Roca]

The following code illustrates the use of the Item property:

Code Select Expand


#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem
DIM pFolder AS IFolder
DIM pSubFolders AS IFolderCollection
DIM pSubFolder AS IFolder

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFolder interface
pFolder = fso.GetFolder(UCODE$("C:\"))
' Get a reference to the IFolderCollection interface
pSubFolders = pFolder.SubFolders
' Get a reference to a subfolder
pSubFolder = pSubFolders.Item("MyFolder")