FileSystemObject Folders

[butler]

Hi all,

The following code prints folder names a collection of 'folders'...

Dim fso As New FileSystemObject
Dim fld As Folder
Dim tFld As Folder

Set fld = fso.GetFolder("c:\&quot
If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
Debug.Print tFld.path
Next
End If

How do I retreive a specific folder from the collection using a subscript as suggested by the documentation on collections??? nothing seems to work...

fld.SubFolders(1)
fld.SubFolders.item(1)
fld.SubFolders(1).path
etc...

Thanks much,
bill





Dim objFolder As Scripting.Folder
Dim objFile As Scripting.File
Dim objSubdirs As Scripting.Folders
Dim objLoopFolder As Scripting.Folder

Set objFolder = fso.GetFolder(pRs("path&quot)
For Each objFile In objFolder.Files
Debug.Print objFile.ShortPath
Next objFile

 

[RickSpr]

After researching the Scripting object model, I learned that the Folders object is apparently not a Collection, but a Scripting.Dictionary. Although they are similar, the Dictionary object apparently can only be accessed by its actual key, not by an index.

You'll have to either know the subfolder name in advance, or use For Each to enumerate the names and then choose one to use as the key. Rick Sprague

 

[JohnYingling]

Folders is apparently not a VB Collection class. There may be one internally but the Folders "collection" does not expose it directly. The doc indicates that ITEM property takes a KEY as opposed to an index. If you get a "not found" exception using Item(1) then I guess Folders can't be "indexed".

http://WWW.VBCompare.Com

 

[butler]

Rats! But thanks.