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
|