title: Remove directory and it's contents (files, subdirectories) without using FileSystemObject
body: <p>I want to know if it's possible to rewrite this piece of code:</p>
  
  <pre><code>Private Sub PrepareDir(ByVal dir As String)
      Dim fso As New FileSystemObject
      If fso.FolderExists(dir) Then Call fso.DeleteFolder(dir, True)
      Call fso.CreateFolder(dir)
  End Sub
  </code></pre>
  
  <p>With VBA statements: Kill, MkDir, etc. Most "difficult" part of this - remove non-empty directory. With FSO it can be done easily, but how it can be done without FSO?</p>