描述
如果指定的文根夹是根文件夹,返回 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.