Previous PageNext Page

8.11.18 SubFolders Property

Returns a Folders collection consisting of all folders contained in a specified folder, including those with Hidden and System file attributes set.
 

Syntax

object.SubFolders

Arguments

object
A Folder object.

Remarks

The following code illustrates the use of the SubFolders property:
 

Sub ShowFolderList(folderspec)

Dim fs, f, f1, s, sf

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(folderspec)

Set sf = f.SubFolders

For Each f1 in sf

s = s & f1.name

s = s & vbCrLf

Next

Response.Write s

End Sub


Copyright © 2000 Chili!Soft

Previous PageTop Of PageNext Page