示例：获取同级文件夹

Sub GetSiblingsAndParent()
Dim oFolder As Folder
Dim oFolders As Folders
Dim oSibling As Folder
Dim sFoldersParentName As String
Dim sFolderList As String
'Create folders.
TagDB.CreateFolder "Line1\Motor1"
TagDB.CreateFolder "Line1\Motor2"
TagDB.CreateFolder "Line1\Motor3"
'Set a folder.
Set oFolder = TagDB.GetFolder("Line1\Motor1")
'Set the folder parent.
Set oFolders = oFolder.Parent
'Set the folders parent name.
sFoldersParentName = oFolders.Parent.Name
'Loop through all the folders and build a list.
For Each oSibling In oFolders
sFolderList = sFolderList & vbTab & oSibling.Name & vbCrLf
Next oSibling
'Print the folder siblings.
Debug.Print "The folder '" & oFolder.FullName & "' has the following siblings:" _
& vbCrLf & vbCrLf & sFolderList
'Print the folder parent name.
Debug.Print "The folder '" & oFolder.FullName & "' has the parent:" _
& vbCrLf & vbCrLf & vbTab & sFoldersParentName
'Release objects.
Set oFolder = Nothing
Set oFolders = Nothing
Set oSibling = Nothing
End Sub