Coleção Folders
Coleção de todos os objetos Folder contidos em um objeto Folder .
Comentários
O código a seguir ilustra como obter uma coleção Folders e como iterar a coleção usando o For Each... Próxima instrução.
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
MsgBox s
End Sub
Confira também
- Objetos (Visual Basic for Applications)
- Referência de biblioteca de objetos do Office (membros, propriedades, métodos)
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.