title: Get Folder Names from server directory
body: <p>I need to get folder names with the path for which I need to search the directory in a server with about 6000 folders. I have the following snippet of code to run through the folder and get the folder names with path. It works fine in a local directory but when I run the same code on a server directory it fails after about printing 86 folder names. The code fails when run on server location with more than 6000 folders.</p>
  
  <pre><code>Private Sub PrintFolders()
  Dim objFSO As Object
  Dim objFolder As Object
  Dim objSubFolder As Object
  Dim i As Integer
  Application.StatusBar = ""
  'Create an instance of the FileSystemObject
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  'Get the folder object
  Set objFolder = objFSO.GetFolder("C:\Temp")
  i = 1
  'loops through each folder in the directory and prints their names and path
  On Error GoTo handleCancel
  Application.EnableCancelKey = xlErrorHandler
  MsgBox "This may take a long time: press ESC to cancel"
  For Each objSubFolder In objFolder.subfolders
  Application.StatusBar = objSubFolder.Path &amp; " " &amp; objSubFolder.Name
      'print folder name
      Cells(i + 1, 1) = objSubFolder.Name
      'print folder path
      Cells(i + 1, 2) = objSubFolder.Path
      i = i + 1
  Next objSubFolder
  handleCancel:
  If Err = 18 Then
   MsgBox "You cancelled"
  End If
  End Sub
  </code></pre>