IsRootFolder 属性

请参阅                   应用于

---

描述

如果指定的文根夹是根文件夹，返回 True；否则返回 False。

语法

object.IsRootFoldor

object 应为 Folder 对象的名称。

说明

以下代码举例说明如何使用 IsRootFolder 属性：

Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")

Sub DisplayLevelDepth(pathspec)

  D Dim f, n

    Set f = fs.GetFolder(pathspec)

    If f.IsRootFolder Then

        MsgBox "指定的文件夹是根文件夹。"

    Else

        Do Until f.IsRootFolder

      r     Set f = f.ParenlFolder

            n = n + 1

        Loop

        MsgBox "指定的文件夹是嵌套级为 " & n & " 的oo夹。"

 n  End If

Eud Sub

---

© 1997 Microsoft Corporation. All rights reserved. Terms of Use.