IFolder.IsRootFolder Property

[José Roca]

The following code illustrates the use of the IsRootFolder property:

JScript

Code Select Expand


function DisplayLevelDepth(pathspec)
{
   var fso, f, n, s = "";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(pathspec);
   n = 0;
   if (f.IsRootFolder)
      s = "The specified folder is the root folder."
   else
   {
      do
      {
         f = f.ParentFolder;
         n++;
      }
      while (!f.IsRootFolder)
      s = "The specified folder is nested " + n + " levels deep."
   }
   return(s);
}


VBScript

Code Select Expand


Function DisplayLevelDepth(pathspec)
   Dim fso, f, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(pathspec)
   If f.IsRootFolder Then
      DisplayLevelDepth = "The specified folder is the root folder."
   Else
      Do Until f.IsRootFolder
         Set f = f.ParentFolder
         n = n + 1
      Loop
      DisplayLevelDepth = "The specified folder is nested " & n & " levels deep."
   End If
End Function


PowerBASIC

Code Select Expand


FUNCTION DisplayLevelDepth (BYVAL strPathSpec AS STRING) AS STRING

   LOCAL fso AS IFileSystem
   LOCAL f AS IFile
   LOCAL n AS LONG

   fso = NEWCOM ("Scripting.FileSystemObject")
   f = fso.GetFolder(UCODE$(strPathSpec))
   IF f.IsRootFolder THEN
      FUNCTION = "The specified folder is the root folder."
   ELSE
      DO
         IF f.IsRootFolder THEN EXIT DO
         f = f.ParentFolder
         n = n + 1
      LOOP
      FUNCTION = "The specified folder is nested " & FORMAT$(n) & " levels deep."
   END IF

END FUNCTION