Folders Collection

Collection of all Folder objects contained within a Folder object.

Remarks

The following code illustrates how to get a Folders collection and how to iterate the collection using the For Each...Next statement:

Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.SubFolders
   For Each f1 in fc
      s = s & f1.name 
      s = s &   "<BR>"
   Next
   ShowFolderList = s
End Function

Properties

Count Property | Item Property

Methods

Add Method

See Also

Drive Object | Drives Collection | File Object | Files Collection | Folder Object | SubFolders Property

Сайт создан в системе uCoz