Recursively delete files and directory

• • Reply

  13 years ago

  by mortis304

  Scott

  , United States

  Joined 13 years ago
  I have been trying to figure out how to delete a directory and all of the subdirectories and files.  Apparently you can't delete a non empty folder.  I have been struggling to get this together...can someone help?
  
  
  Report abuse
• • Reply

  13 years ago

  by myoungbl

  Marshall C Youngblood

  Mississippi, United States

  Joined 13 years ago

  Try this one:

  Private Sub DeleteAllSubFolders(ByVal StartPath As String)

        Dim myfolder As DirectoryInfo = New DirectoryInfo(StartPath)

        Dim mySubfolders() As DirectoryInfo = myfolder.GetDirectories()

        Dim strFiles() As FileInfo = myfolder.GetFiles()

        'for each folder, do a recursive call to this sub routine

        For Each myItem As DirectoryInfo In mySubfolders

              DeleteAllSubFolders(myItem.FullName)

        Next

        'delete all files in the current folder

        For Each myItem As FileInfo In strFiles

              myItem.Delete()

        Next

  '      delete the starting folder

        myfolder.Delete()

  End Sub

  It's an excellent example of when recursive calls can be used. It's not tested code,and needs to be tested and tweaked for read-only and system files, but the basic design should work.

   

  Report abuse