Microsoft® Visual Basic® Scripting Edition IsRootFolder Property |
Language Reference Version 3
|
Returns True if the specified folder is the root folder; False if it is not.
object.IsRootFolderThe object is always a Folder object.
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