Previous PageNext Page

8.13.3 Folders Collection

Collection of all Folder objects contained within a Folder object.
 

Methods

AddFolders
 

Properties

Count, Item
 

Remarks

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

Sub ShowFolderList(folderspec)

Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(folderspec)

Set fc = f.SubFolders

For Each f1 in fc

s = s & f1.name

s = s & vbCrLf

Next

Response.Write s

End Sub


Copyright © 2000 Chili!Soft

Previous PageTop Of PageNext Page