IsRootFolder Property
Description
Returns True if the specified folder is the root folder; False if it is not.
Syntax
object.IsRootFolder
The object is always a Folder object.
Remarks
The following code illustrates the use of the IsRootFolder property:
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Sub DisplayLevelDepth(pathspec)
Dim f, n
Set f = fs.GetFolder(pathspec)
If f.IsRootFolder Then
MsgBox "The specified folder is the root folder."
Else
Do Until f.IsRootFolder
Set f = f.ParentFolder
n = n + 1
Loop
MsgBox "The specified folder is nested " & n & " levels deep."
End If
End Sub