title: Move Folder into different Folder with VBS
body: <p>I've been trying to make a little VBS that gets all Home Directories on a Server and moves them to a different place. Little Example</p>
  
  <p>C:\homefolders\test_person
  C:\homefolders\test_person\old_home</p>
  
  <p>Here is what I got so far, but the moving part doesn't work...</p>
  
  <pre><code>Call ListFolderContents("C:\Windows\System32\Drivers")
  
  Sub ListFolderContents(path)
      set fs = CreateObject("Scripting.FileSystemObject")
      set folder = fs.GetFolder(path)
      Msgbox folder.path
  
      For each item in folder.SubFolders
          ListFolderContents(item.Path)
      Next
      set folder = Nothing
      set fs = Nothing
  End Sub
  </code></pre>